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INTRODUCTION 



Using games to learn BASIC 



The Commodore 64 is probably the most popular home computer today, 
and it's easy to understand why. It has more built-in memory than almost 
any other home computer on the market, fantastic sound and graphics 
capabilities, built-in BASIC, and one of the biggest software bases available 
for any brand of computer. The Commodore 64 is the direct descendant of 
some earlier Commodore computers, the PET and the VIC-20. Both of 
these machines were impressive for their time, but both had one major 
drawback: a small amount of memory for BASIC programs. The Commodore 
on the other hand, uses about 38K of its memory for BASIC workspace, 
which is large enough for almost any home computer application. 




Most of the commercial software available for the Commodore 64 is written 
in machine language, which is easy for the computer to understand, but very 
confusing for the average human being. Back in the sixties and seventies, 
when the public was just becoming aware of computers, most of the programs 
were written in BASIC. Machine language programs were few and far 
between because people were somewhat intimidated by the appearance and 
complexity of the language. But there were a huge number of great BASIC 
games written. Programs weren't copy protected either — if somebody 
created a great game, you could almost bet that a line-by-line listing would 
appear somewhere soon, usually in one of the popular microcomputer 
magazines of the day. 

These games were often much slower than their machine language 
counterparts, but they also had several advantages. Programs created in 
BASIC on one machine were usually fairly "portable," which means that 
they were not difficult to transfer from a form that worked on one machine 
into a form usable by another. It was easy for a programmer to look at one 
of these listings and see how a game was created, and for him to modify it to 
fit his own ideas. Graphics were usually slow and not too complex, but the 
Commodore 64 has changed that quite a bit. 

In this book is a collection of some classic BASIC games, written in a 
straightforward, easy to understand manner. Each of the programs is 
written using the same general structure, and any experienced programmer 
will tell you that it always makes it easier to follow the flow of a program if 
there is a definite structure to it. To compensate for BASIC'S general lack of 
speed, many of the games are designed so that speed is not a factor. 
Adventure games such as GRUE STEW, word games such as WORD 
SCRAMBLE, and board games such as CONNECT FIVE all require quick 
wits instead of quick reactions — and after all, computers should stretch 
your mind, not your muscles. 

Structuring your programs makes it easier to edit, change, and reuse 
sections of a program. Each game will be prefaced by a short description of 
some of the more interesting features of BASIC used by that game, which 
should make it easier to see how the program works. Two games, SCI-FI and 
MUBBLE CHASE, are accompanied by a Une-by-line description of the 
function of each line. SCI-FI introduces text formatting, input routines, 
READ statements, and data manipulation. You'll find that these programming 
concepts are essential in the design of any word game, and learning from 
actual examples is definitely more beneficial than learning from a dry 
textbook. MUBBLE CHASE will help you understand some of the basic 
concepts of computer graphics, including animation, Cartesian coordinates 
(used to plot points and shapes), collision detection, and more. 
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All of the programs in this book use the same fundamental structure. Four 
GOSUB's control the flow of the program. Each target Hne contains a blank 
line or an empty REMark. Each subroutine also ends with a RETURN 
statement. Using this structured technique, you can write the basic structure 
before you write the inner workings of the program. Below you will find a 
complete program outline: 

100 REM **• STRUCTURED PROGRAM *** 

110GOSUB 1000 

120GGSUB2000 

130GGSUB3000 

140GOSUB4000 

200 END 

1 000 REM *** INSTRUCTIONS *** 

1990 RETURN 

2000 REM *** SETUP*** 

2990 RETURN 

3000 REM **» PLAY *** 

3990 RETURN 

4000 REM *** END *** 

4990 RETURN 
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c \ 

Using a structure like the one above actually makes it easier to write 
programs, since the programmer can see at a glance where certain 
programming tasks are being performed. If there is a problem with the way 
the instructions appear on the screen, the programmer knows that he should 
look somewhere between lines 1000 and 1990. Clearly demarcated program 
sections allow you to keep track of "what's going on where" even when 
programs get very long. 



In the short prefaces, you will usually be given some suggestions on 
experiments to perform which will give you a better understanding of a 
particular facet of BASIC that was used in the program. You will undoubtedly 
learn a great deal about BASIC by typing in, studying, and debugging the 
program. You also have the option of ordering the programs on disk directly 
from DATAMOST in a ready-to-play state. Either way, you'll agree that this 
is a truly enjoyable way to learn BASIC! 



Several tips may be in order before you start your experimentation: 

• Save your game often. There's nothing more frustrating than typing in a 
program for an hour or two and then having someone disconnect your 
power supply by tripping over the plug. If you have to pause to think for 
a minute while entering a program, go ahead and save your program. 



• Save your game in several versions. With the Commodore disk drive 
system in particular, saving a game with the recommended "#0: filename" 
method may cause you to lose a part of your program under certain 
conditions. Save your game as GAME.l, then GAME. 2, and so forth, 
until you have a final version. Save this working version as GAME. WRK, 
and then use the SCRATCH command to remove the old versions from 
your disk. 



• EXPERIMENT, EXPERIMENT, EXPERIMENT. Remember that anything 
inside your computer's memory is in a temporary state and that anything 
stored on an external storage device, such as a cassette tape recorder or 
disk drive, is in a permanent state. Once you have saved a program, you 
can load it back into your computer's memory and change it around as 
much as you want. These changes will only be made on your saved 
version if you save it on the same disk or tape under the same file name. 
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Background Color, Border Color, and Text Color 

If you want to make any investment in your Commodore computer system, 
one of the first things you should consider is a color monitor. (A color TV 
will also work, but won't give as sharp a picture as the monitor.) Either way, 
you should keep in mind that the Commodore is really a color machine. A 
big part of the C-64's reputation is built on its graphic capabilities, so you 
can't really judge the machine if you're working with a black-and-white TV 
set or a monochrome monitor. 

In many of the programs, you'll see the commands POKE and PEEK. The 
POKE command is used to place a numeric value into a certain memory 
location. The PEEK command is used to display the contents of a certain 
memory location to the screen. The Commodore uses POKEs to control the 
color of the screen and the border, and keyboard commands to control the 
color of the text itself. Type in the following examples to get an idea of how 
this works: 

POKE 53280,1 <RETURN> 

The border around the screen will change to white. 

POKE 53280.6 <RETURN> 

Now the border is invisible. (Actually it is dark blue, the same color as the 
background color). 
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POKE 53280.0 <RETURN> 



Now the border is black. 
POKE 53280.1 4 <RETURN> 
And now it is back to normal. 

Now let's change the background color. We'll use the same command, a 
POKE, but this time we'll be putting the number in a different place: 

POKE 53281 .0 <RETURN> 

Turns the background to black. 

POKE 53280.1 3 <RETURN> 

Now it is light green. 

POKE 53280.1 <RETURN> 

Now it should be white. 

POKE 53280.8 <RETURN> 

And now it is back to normal. 

Before we go on a few things should be said about POKEs in general, and 
about these two POKEs in particular. POKEs are entered in the form POKE 
mm,nn. The first number in a POKE (mm) represents a specific memory 
location. The second number (nn) is the value that is being placed in that 
location. POKE 53280,1 for example, tells the computer to put the value 
"1" in memory location 53280. POKEing a number into a specific memory 
location is often an easy way to get a lot of work done very quickly, but it is 
also one of the quickest ways to make your program "bomb" or "hang." In 
general, random POKEing is a risky activity. (It won't physically harm your 
computer if you POKE around in its memory, but it might ruin your 
program if you POKE a painful place). Any number in the range of 0-15 may 
be POKEd into locations 53280 or 53281, since there are 16 background 
and 16 border colors. 



PEEKS on the -other hand, can be used with no danger of harming your 
programs. A PEEK command lets you see what value is in a particular 
memory location. A PEEK has the form PEEK(nn), where nn is a number 
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between 1 and 65536 (the number of memory locations in your C-64). 
PEEKs do not change the contents of memory, they only show you what is 
at a specific memory location. If you type in PRINT PEEK(53280) when you 
turn your Commodore on, you will see a 14 appear on the screen, which is 
the code for light blue. 

The color of the text on your screen can be changed merely by pressing 
different key combinations. When you turn your Commodore 64 on, the 
screen displays light blue letters on a dark blue screen, which makes for hard 
reading and squinty eyes. Try this: while holding down the Control key 
(marked CTRL on the keyboard) press the number 2. Now type in some 
text. Rather than hard-to-see blue, you have crisp white letters. Using the 
CTRL key OR the COMMODORE O key in combination with one of the 
number keys 1-8 will change the color of your text. 9 and change the text 
to reverse video and back to normal again. Type in the following line: 



PRINT "(CTRL-1)C0MM0D0RE(CTRL-2]USES(CTRL-3JDIFFERENT 
(CTRL-4)C0L0RS" 

({CTRL-/} means to hold down the CTRL key and then press a number while 
holding it down): 

Press RETURN. You will see a multi-colored message. 

With a little math, you can figure out that there are over 4000 color 
combinations that can appear on the screen — 4096 to be exact (16*16 
*16). With this many combinations, it should be quite a while before you 
run out. 



Error Checking Your Program 

The Commodore Operating System will detect a great number of errors, and 
although it may not seem that way, the messages it produces are designed to 
help, not infuriate you. Imagine an operating system where no error 
messages at all were displayed — if everything weren't just right, the 
program would hang or break, and you'd have no idea at all about what was 
going wrong. All those ? SYNTAX ERROR IN 10 messages actually make it 
a lot easier to debug a program than you probably realize. The Commodore 
BASIC error messages contain two important pieces of information: first, 
the type of error, and second, the line number at which it occurred. Both 
parts of these messages are important: imagine if the error message only said 
PSYNTAX ERROR. You would have to work through the entire program to 
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find a single incorrect entry. Or imagine that you got only a line number 
with no description, like PERROR IN 20. You would have to decide whether 
it was a syntax error, a redimensioned array error, or whatever. All in all, 
your Commodore 64 is as specific as it can be about what you have to do to 
your program to make it run. 



Use STOP 

Put in a STOP command immediately following a line that you don't 
understand. By seeing what has and what has not been done, you may be 
able to understand the line's function. If not, put a STOP before the line. 
Perhaps the absence of a certain attribute will clarify the function of the 
mystery Une. 



Detour Lines 

If you would like to know what effect skipping a certain line has, put a 
GOTO right before it. For example, if line 40 were in question, you might 
type: 

10 — 
20 — 
30 — 

35 GOTO 50 

40 REM SKIP THIS MYSTERY LINE 
50 — 

Program flow would skip right over line 40 to line 50. 



Delete Lines 



Rather than using the detour method, you can simply delete a line. This is 
done by typing in the line number in question and then pressing RETURN. 
After deleting a line, run the program and make note of any changes that 
occur. Make sure to reenter the deleted line next time you want to run the 
program, or load in an unaltered version from cassette or disk. 
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Isolate Parts of the Program 



If you want to run a certain segment of the program, there are three ways to 
do it. First, you can delete all but the lines in question. This, however, may 
prove more tedious than expected. Commodore BASIC requires that you 
delete lines one at a time, and deleting one or two hundred lines to discover 
the function of three lines is not very efficient. Second, you can add a line at 
the beginning of the program which directs flow to a specific line, e.g., 10 
GOTO 2230 (or whichever line or section is in question). Your program will 
eventually stop with a ? RETURN WITHOUT GOSUB error, but you will 
have been able to see the function of the line or section. For the third 
method, we will use an example. Assume that in the program below, you 
wanted to isolate lines 40-60: 



10 PRINT CHR$(147) 
20 REM SAMPLE PROGRAM 
30 INPUT "WHAT IS YOUR NAME?";N$ 
40 PRINT "YOUR NAME IS ";N$ 
50 INPUT "WHAT IS YOUR FAVORITE COLOR?";C$ 
60 PRINT "GREEN IS MY FAVORITE." 
70 PRINT CHR$(147J 
80 FOR != 1 TO 16 
90 PRINT N$;C$; 
100 NEXT I 
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Copy and run the program above. To isolate lines 40-60, first add line 61 by 
typing 61 STOP. Now type RUN 40. The computer will start execution at 
line 40 and STOP at line 61. This is the best method of the three to see 
what's going on, since the program will stop right at the end of the section 
you want to see (when it hits the STOP command). After you have seen the 
results, type in CONT to get the program going again. 

After you've experimented for a while, you'll get the hang of writing and 
debugging your own programs. Learning BASIC with games is both educational 
and fun, and you will begin to build up a software library of working 
programs at the same time. So get to it! 



For Your Information 

Many of the games in this book use a machine language routine to do 
graphic plotting. Look at the section below, lines 2020-2026 from the 
program "Leaky Faucet:" 

2020 PLOT = 491 52 : FOR I = TO 24 : READ C : POKE PLOT + I.C 
: NEXT I 

2021 DATA 32.1 6.1 92.1 32 

2022 DATA 253.32.1 6.1 92 

2023 DATA 1 52.1 70.1 64.253 

2024 DATA 24.76.240.255 

2025 DATA 32.253.1 74.32 

2026 DATA 1 58.1 73.76.1 70.1 77 

In this example, the twenty five data elements are POKEd into twenty five 
consecutive memory locations, starting with location 49152. If we look at 
line 301 5 , we can see an example of this routine being called: 

301 5 SYSPLOT.2.24 



The first number is the x-coordinate of a point to be plotted on the screen 
(the column), the second, the y-coordinate (the row). The above command 
could also have been written like this: 

3015 SYS49 152.2.24 

The variable PLOT is set to the beginning memory location of the plot 
routine in line 2020 (PLOT = 49152). Using SYSPLOT instead of SYS49152, 
however, gives us more information about exactly what machine language 
routine we are calling. When a SYSPLOT is used, we know that a plot is 
being done. 

^ , 
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If you're interested in machine language, or are already familiar with it, we 
have included the source code for the plot routine below. The data statements 
in the BASIC program above are derived from this routine, and both do the 
same thing to your computer. It's not necessary to understand how this 
conversion is done, but you might want to take a look at the listing below 
just to see how machine code is entered: 







; MACHINE LANGUAGE "PLOr ROUTINE 


VJ\LJ\£jVJ 




: FOR GAMES COMMODORE'S PLAY 






; BY PHILLIP W. DENNIS. PHD 














; PAGE ZERO 














TEMP=$FD 


• TEMP fFREE PAGE LOCI 












ROM ENTRY POINTS 




tPWPSPttPl— 










CHKCOM=$AEFD 


• RAf3in nHFRK FOR COMMA 


UiXPSA^A— 


IFIX=$B1AA 


• CONVERT # TO INTEGER 




EVAL=$AD9E 


• EVALUATE EXPRESSION 




PLOT=$FFF0 


; KERNAL PLOT ROUTINE 










1lJ\J%JVJ 


*=$C000 


■ SET ORG TO 49152 












S010C0 


JSR GETVAL 


GET COLUMN VALUE 




84 FD 


STY TEMP 


SAVE IT 


□005— 


S010C0 


JSR GETVAL 


GET ROW VALUE 


□008- 


98 


TYA 






AA 


TAX 


PUT ROW IN X 


□00 A- 


A4 FD 


LDY TEMP 


PUT COLUMN IN Y 
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CLC 


CLR CARRY TO INDICATE SET 


C00D- 






CURSOR FOR KERNAL PLOT 


C00D- 


4C F0 FF 


JMP PLOT 


EXIT VIA PLOT 


C01&- 


1 






C010- 


GETVAL 




C010- 








C01&- 




PARSE VALUE AFTER A COMMA 


C010- 




WILL PRINT SYNTAX ERROR IF COMMA 


C010- 




IS MISSING AND WILL ABORT PROGRAM. 


C010- 








C010- 


20 FD AE 


JSRCHKCOM : 


CHECK FOR A COMMA 


C013- 


20 9E AD 


JSR EVAL ; 


EVALUATE EXP FOR COLUMN 


C01B- 


4C AA 81 


JMPIFIX ; 


CONVERT TO INTERGER 


C019- 


.END 
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Key to the Listings 

Within the program listings, you will come across instructions enclosed in 
braces, like {BLK} or {WHT}. Here is how these special characters should be 
entered from the keyboard: 

The CTRL (ConTRol) key used in combination with other keys produces 
some of the special characters: 



To Get Press these keys 

{BLK} Hold down the CTRL key and press the 1 key. 

{WHT} Hold down the CTRL key and press the 2 key. 

{RED} Hold down the CTRL key and press the 3 key. 

{CYN} Hold down the CTRL key and press the 4 key. 

{PUR} Hold down the CTRL key and press the 5 key. 

{GRN} Hold down the CTRL key and press the 6 key. 

{BLU} Hold down the CTRL key and press the 7 key. 

{YEL} Hold down the CTRL key and press the 8 key. 

{RVS ON} Hold down the CTRL key and press the 9 key. 

{RVS OFF} Hold down the CTRL key and press the key. 



The Commodore key (in combination with other keys) also produces some 
of the special characters. This key is located at the bottom left-hand corner 
of the keyboard: 



To Get Press these keys 

{ORNG} Hold down the Commodore key and press the 1 key. 

{BRWN} Hold down the Commodore key and press the 2 key. 

{LT RED} Hold down the Commodore key and press the 3 key. 

{GRY 1} Hold down the Commodore key and press the 4 key. 

{GRY 2} Hold down the Commodore key and press the 5 key. 

{LT GRN} Hold down the Commodore key and press the 6 key. 

{LT BLU} Hold down the Commodore key and press the 7 key. 

{GRY 3} Hold down the Commodore key and press the 8 key. 

V ) 
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The functions key are listed in the following manner: 



To Get Press these keys 

{Fl} Press the fl key. 

{F2} Press the f2 key. 

{F3} Press the f3 key. 

{F4} Press the f4 key. 

{F5} Hold down the shift key and press the fl key. 

(F6} Hold down the shift key and press the f2 key. 

{F7} Hold down the shift key and press the f3 key. 

{F8} Hold down the shift key and press the f4 key. 



These characters will also appear: 



To Get Press these keys 

{CLR} Hold down the shift key and press the CLR/HOME key. 

{HOME} Press the CLR/HOME key. 

{CSU} Hold down the shift key and press the cursor-up/cursor- 

down key. 

{CSD} Press the cursor-up/cursor-down key. 

{CSL} Hold down the shift key and press the cursor-left/cursor- 

right key. 

{CSR} Press the cursor-left/ cursor-right key. 



In addition to these characters, actual graphic characters may appear in 
game listings. If this is the case, then a special section at the beginning of 
the listing will describe how to produce any such characters. 



/ 
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This program is not a game, rather it is an entertaining collection of short 
stories which you can make as personal as you want. You are given the 
chance to enter your own data. As with MUBBLE CHASE in the graphics 
programs section, this program will be described line by line. 

10 REM stands for REMark. Any comments, numbers, symbols, expletives, 
etc. may follow a REM. In this case, the REMark is used to help highlight 
the program name. The computer, in effect, ignores the material which 
follows a REM. In this case, the REMark ** is made. 

11-16 completes the title with REM statements including two blank lines fpr 
readability. 

20 The entire program is controlled by lines 20-50. There are actually two 
parts to line 20. First, GOSUB 1000 instructs the computer to go to line 
1000, and to continue from there until the command RETURN is encountered. 
The second instruction, REM, is allowed on the same line for only one 
reason. The colon (:) allows the programmer to include many, not necessarily 
related, instructions on the same program line. This is usually done to show 
that certain pieces of a program are so closely related, that to isolate them 
on separate lines would belie their common purpose or association. The 
REMark: INSTS stands for INSTRUCTIONS. This is the programmer's way 
of telling the reader that the subroutine beginning at line 1000 (GOSUB 
1000) is where the INSTRUCTIONS can be found. In this case, the REMark 
serves to explain the purpose of the subroutine rather than serving the 
equally important, but more aesthetic, role of lines 10 through line 16. 

30 When the subroutine begun by line 20 is completed by the RETURN 
statement, the program, having completed line 20, drops down to the next 
sequential instruction, which in this case is line 30. Like line 20, this line 
first initiates a subroutine (GOSUB 2000), and then informs the reader as to 
the main emphasis of the subroutine, which is to SETUP the program. 
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40 This line is identical in function to line 30, except the subroutine it 
accesses is the PLAY subroutine. 

50 END returns you to the immediate mode. Control no longer belongs to 
the program, but to the programmer. 

1000 & 1020 Colons can also be used to create spaces in program listings. 
They are not the same as REMs, as the computer checks to see if there is 
any information after the colons. When a program encounters a REM, it 
automatically drops to the next line number. 

1010 This line just indicates what is taking place in the subroutine. In this 
case, it is INSTRUCTIONS. 

1030 POKE 53280,6 and POKE 53281,6 set the border and background 
screen color respectively. Try changing the values after the commas to some 
other number in the range 1-15 to get a different perspective on things. 

1040 The Commodore 64 allows you to create strings that consist of cursor 
movements, color keys, and so forth. VT$ in our case is defined as a {HOME} 
followed by a number of {CRSR-DWN} movements. So if we print out the 
first part of VT$, it would be the same as pressing the CLR/HOME key, and 
then the CRSR-DWN key several times. We can use this string to position 
the cursor on a particular row on the screen. Look at the commentary on 
line 1800 for more detail. 

1050 Here we have an example of a nested subroutine. GOSUB 1900 goes 
to a subroutine that positions and prints a title at the top of the page, then 
RETURNS to the next line. 

1060-1110 These lines will print out exactly what appears between the 
quotation marks to the screen. Line 1080 uses a PIUNT statement followed 
by no text at all (as the second statement in the line) to put a line space 
between two paragraphs on the screen. 

1800 This line makes use of the string of special characters in line 1040. The 
command PRINT LEFT$(VT$,24) will print 24 characters of the string VT$, 
starting with the leftmost character. Since the first character in VT$ is a 
HOME, the cursor is placed on the first row in the upper lefthand corner. 
This is followed by 23 cursor-down moves, which place the cursor near the 
bottom of the screen. Note that the RETURN is printed out in inverse 
video so that it stands out. 

V J 
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1810 Waits for the user to press a key to indicate that he has finished reading the 
screen. If no key is being pressed, the second part of the line will send 
control back to the beginning of the same line until a key has been pressed. 



1890 This RETURN actually sends control of the program back to line 30 at 
the top of the program, since the line that sent program control to the 
INSTRUCTIONS routine is still waiting to encounter a RETURN. 

1900 This line prints the title "*** SCI-FI ***" across the top of the page 
whenever it is necessary. Making a job like this a subroutine can save the 
fingers a lot of typing. Whenever a you need to print the title, for example, 
instead of typing out the whole thing again, you can just use GOSUB 1900. 
This type of structure has two advantages: first, as mentioned above, you 
don't have to type as much data in, and secondly, you are assured of getting 
the same appearance on the screen every time. 

2000 & 2002 As stated before, a blank colon (:) is a legitimate means of 
writing a virtually blank line within the program listing itself. 

2001 On this line, the main function of the subroutine is detailed by a REM 
statement. 

2010 This line sets aside sixteen memory locations for the array SO$. The 
DIM instruction tells the computer to DIMension a block of memory large 
enough for sixteen separate values for SO$ (SO$(0) through SO$(15). Also, 
the value of SO is set to 0. The number in parentheses is the number of the 
array variable. The Commodore (and most other microcomputers) start 
from (0). 

2015 This line sets up a one-dimensional array in memory. This table can 
accomodate up to sixteen separate values of PL$. Also, PL is set to 0. 

2020 & 2025 Are duplicates of lines 2010 and 2015 (but the arrays being 
DIMensioned are different). 



2030 The READ statement is an interesting animal. What it does is find the 
first available DATA statement and read the first element in it. In this 
program, the first DATA statement is in line 2050. What happens is this: the 
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first piece of data (each piece is separated by a comma), ALEXANDER 
HAIG, is read into (stored at) SO$. Then a test is done to see if SO$ is equal 
to "END". If so, then the program falls through to line 2035. If not, SO is 
incremented (SO = SO + 1), SO$(l) is assigned the value of the contents of 
SO$ (ALEXANDER HAIG), and the process is repeated (GOTO 2030). The 
program will next READ the second piece of DATA (the Commodore 
automatically keeps track of which piece of data is next in line), which is 
RONALD REAGAN, and store it in SO$(2). After the first seven pieces of 
DATA on line 2050 have been read, the last DATA element will be encountered. 
This time the test on line 2030 (IF SO$ < > "END") will be false, so control 
will drop through to line 2035. When you understand that SO, SO$, and 
SO$(0) are all different variables you get a gold star. 



2035 Once a DATA element has been read, it is no longer "available." 
Therefore, the first available DATA is not in line 2050, but 2060. It may 
occur to you that PL stands for PLace. Actually, all of the variables are 
representative of their meaning. 



2040 & 2045 Both of these lines are identical in function to line 2030. 



2050 You must make sure that you have the right kind of variable to hold 
the kind of DATA you are working with. If, in line 2030, you changed all 
occurences of SO$ to SO, then ran the program, you would get a ? SYNTAX 
ERROR IN 2050 message. If you want to read in special characters and 
numbers, you must use a string variable (one followed by a dollar sign) to 
hold it. Variables without a dollar sign can only hold numerical information 
(including decimal points). 



2055-2090 These are all DATA statements. All of the data could have been 
combined into several long DATA statements. The reason for dividing them 
into smaller lines was to add clarity. 



2095 This line appears to be a nebulous conglomeration of variables. Not 
so! This line serves a very specific purpose. DEF stands for DEFine. The 
next question is, what is to be defined.^ The answer is a FuNction (FN). The 
FuNction being DEFined is R(X). "R" is the given name of the function. 
"X" is a variable name which is equal to the FIRST INT(RND(1) * X) + 1. 
Each time the FuNction "R (any variable or digit)" is used, the variable 
inside the parentheses assumes the value of "INT(RND(1 ) * (the new variable or 
digit)) + 1". Below is a list which, hopefully, will help you to understand the 
"DEF FN" statement. 
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VALUE OF VARIABLE 
FUNCTION OR DIGIT VALUE OF FUNCTION 



A(X)=4*X+5 

A(13) 

A(Y) 

BS(X)=X*X-22 
BS(17) 
BS(FNA(Y)) 
A(FN BS(17)) 



'X' IF NOT STATED, = A(X)=5 (4*0+5) 

13=13 A(13)=57 (4*13+5) 

LET US SAY THAT Y = 6 A(Y)=29 (4*6+5) 



X=0 
17= 17 
FNA(Y) = 29 
FNBS(17) = 267 



BS(X)=-22 (0*0-22) 
BS(17)=267 (17*17-22) 
BS(FNA(Y)) = 819 
A(FNBS(17))=1073 (267*4+5) 



Here is a program to further illutainate the function of Hne 2005: 



THE PROGRAM 

10 A=17:C=2.65 

20 DEF FN PRY(C) = -A * C 

30 PRINT C;: PRINT FN PRY(C) 

40 PRINT A;: PRINT FN PRY(A) 

50 PRINT FN PRY(FN PRY(C) 



THE OUTPUT 



2.65 -45.05 

17-289 

765.85 



In this little program, line 20 identifies the variable as being "C." Therefore, 
whenever the FuNction "PRY" is executed, the variable (or digit) within the 
parentheses is substituted for C. In line 2095, "X" is the variable. If the 
number five (5) is substituted for X, then the result is R(5) = INT(RND(1) * 
5 + 1). The reason the DEF FN instruction is used in this program is so that 
whenever a random number between 1 and any other number is needed, all 
the programmer needs to write is FN R (any other number), and the random 
result will be generated. 

2100 This sends control to the title subroutine. 

2110 This line prints part of the string VT$ (homing the cursor and moving 
it down seven spaces). 

2120 Prints the rest of the message. 

2130 Sets the value of CO to 0. 

2140-2450 These lines continue to INPUT names of Places that will be 
Attacked, Names of Monsters, etc. 

2900 This sets the value of PT to one (1) each time the subroutine (lines 
2900-2999) is executed. 
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2910 MID$ states that the computer will look at the MIDdle of a given word. 
Which word? All of the remaining pertinent information is in the parentheses. 
The word or words that are to be checked by MID$ are contained in WRD$. 
Beginning at the lefthand side of WRD$, the computer will begin the 
scrutiny at that character plus PT. If WRD$ contained the phrase "I Love 
You", and PT equals six, then MID$(WRD$,PT) would instruct the computer 
to begin looking at "I Love You" six characters over from the leftmost 
character (the "e" in "Love" is the SIXth character). If not specified, the 
computer wiU begin the search at the designated location, and continue 
through to the end of the words. If you want a certain number of characters 
looked at, just specify that number after you tell the computer where to 
start. The following program should help: 

PROGRAM OUTPUT 

10 A$ = "SEND MONEr' 

20 PRINT MID$(A$,4,5) D MON 

30 PRINT MID$(A$, 1 ,6) SEND M 

In the little program above, the computer is told to search the MIDdle of 
A$, to begin 4 characters from the left and to PRINT the next 5 characters. 
Likewise, line 30 tells the computer to PRINT the contents of A$ beginning 
with character 1, and to continue for a total of 6 characters. You will admit 
that at the end of most words you will find a blank space. The test (IF 
MID$(WRD$,PT,1) = " ") checks to see if the character at position PT is a 
blank space ( ) and it checks to see if its line position is greater than 30. The 
POS(O) command checks to see if the cursor is at a column on the screen 
whose value is greater than 30 (a regular screen containing 40 columns, 
numbered 0-39). If the value is greater than 30, the next word is in danger of 
going off the right side of the screen. To prevent this from happening, an 
affirmative test result will force the computer to skip to the next line before 
continuing to print. 
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2920 There are two steps to this line. First, PT is incremented (PT = FT + 1). 
Second, the size of PT is compared to the character LENgth of WRD$. For 
example, if WRD$ contained the phrase EARTH WAS ATTACKED, then 
the LENgth of WRD$ would equal the number of characters in that phrase 
(18). To prevent lines 2910 and 2920 from looping indefinitely, there must 
be some way of stopping the loop. This is the function of the second half of 
line 2920. When PT is larger than the length of WRD$, the program will fall 
through to line 2990. 

2990 This line completes the subroutine started at line 2900. 

3000 This is the target of the GOSUB in line 40. 

3001 The REMark •**PLAY is used to inform the reader of the main 
function of the subroutine at line 3000. 



3002 A colon used for spacing. 



3010-3065 These line instruct the computer to perform various subroutines 
and these subroutines, in turn, determine which format the story will reflect. 

3070 A colon used for spacing. 

3080-3085 The computer waits for you to indicate that you have finished 
reading the story by pressing RETURN. You could change this line to allow 
the reader to escape from further Sci-Fi literature: 

3085 PRINT LEFT$(VT$.24J : INPUT "HAD ENOUGH";ANS$ 

3086 IF LEFT$(ANS$.1) = "Y" THEN END 

Using the LEFT$ function to find the first letter of "yes" is standard practice, 
and most computer enthusiasts are used to answering "Y" and expecting it 
to work. "Yo," "Yea," or "Yes" will all work. Any response whose first letter 
is not "Y" will end the program. Instead of END, you could branch to a line 
at the end of the listings and add any farewell sequence you wished. 

3100 This line first clears the screen of text with a (CLR/HOME). Then the 
function defined at line 2005 yields a RaNDom number between one and 
five. If the integer generated is one, then the program will branch to 31 10. If 
FN R(5) generates the integer "2" then the program branches to line 3120. 
If FN R(5) yields 3, 4, or 5, then the program will branch to 3130, 3140, or 
3150 respectively. 

3110-3150 These lines PRINT the five different attention-getting headlines. 

> 
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3200 Line 2035 counted the total number of PLaces saved in PL$. FN R(PL) 
will yield a RaNDom integer ranging from one to PL. There is the name of a 
different place saved in PL$(1), PL$(2), PL$(3) . . . PL$(PL). What this line 
does is randomly select one of the many PLaces and copy it into the location 
WRD$. Then the subroutine beginning at Une 2900 checks to make sure 
that the PLace is not PRINTed in such a manner that it breaches the right 
margin. 

3290 Control is returned to line 3015, then drops down. 

3300 Like line 3100, this one selects a randomly generated integer ranging 
from one to five FN R(5), and depending on the integer, branches to line 
3310, 3320, 3330, or 3340. 

3310-3350 These lines serve as continuations of the currently unfolding 
drama. One of the five rather repugnant actions is stored in the variable WRD$. 

3400 The variable WRD$ already contains one of the five actions outlined 
on lines 3310-3350. These hnes add the name of one of the many (MO) 
monsters (MO$) to WRD$. Line 2350 counted the number of monsters and 
stored the name of each one in an MO$ location. This line RaNDomly 
selects one of the MOnsters and adds its name, plus a trailing blank space 
(" ") to WRD$. Each time the subroutine at 2900 is performed, the contents 
of WRD$ are PRINTed and cleared from WRD$. Each time WRD$ is 
emptied, the stoiy grows. 

3490 Control returns to the top of the routine. 

3500 First, the word "FROM" and a trailing space (" ") are stored in WRD$. 
This word is added to the developing story. At the beginning of the subroutine 
at line 2900, the contents of WRD$ (FROM ) are added to the rapidly 
developing story. 

3510 The HOme base of the MOnsters is added to WRD$, and a period (".") 
is also added. Once again WRD$ is emptied (in the subroutine at 2900), and 
the story sprouts another section. 

3590 Control returns to the top of the routine. 

3600 From the list of potential heroes, SOmeone will be RaNDomly selected 
(FN R(SO)). A space (" ") will follow SOmeone's name, and then this 
material will be added to the story. 

3690 Control returns to the top of the routine. 

V 
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3700 The words "TRIED TO" are added to the text. 



3705 One of five "defense methods" is randomly selected (FN R(5)) and 
added to WRD$ (at 3710, 3720, 3730, 3740, or 3750). Then the subroutine 
at line 2900 adds the 'defense method' to the story. 

3710-3750 These lines contain the five "defense techniques." 

3800 Two more words and a trailing space (BUT THEY ) are added to the 
text. 

3805 One of the five responses to SOmeone's "defense technique" is 
RaNDomly chosen and the text is once again supplemented. 

3810-3850 Each line contains one of the five responses to a "defense 
technique." 

3900 There are five ways to announce the changing fortunes of battle. One 
of these five choices is randomly selected (FN R(5)) GOSUB . . . ). The 
subroutine at line 2900 again prevents overflow on the righthand margin 
while adding the new material to the story. 

3910-3950 These lines contain the five "fortune- reversal lead-ins" mentioned 
at line 3900. 

3090 Sends the program back to the beginning of the routine for another 
story. 

4000 The ON/GOSUB structure deserves explanation. Line 2095 defined 
the FuNction R(X) to be equal to a RaNDom INTeger between one and X. 
The number five is substituted for "X", making R(5) yield a number between 
one and five. The "ON" statement will cause the program to execute one of 
the five given subroutines, depending on the value of FN R(5). If the number 
generated is 3, then line 4000 reads, in effect, ON 3 GOSUB 4030 (the third 
line number). After one of the five subroutines is performed, the program 
executes the subroutine beginning at line 2900. Then RETURN completes 
the subroutine initiated at line 3060. 

4010-4050 These five lines contain the five different "attack methods" that 
SOmeone can employ. The information is stored in WRD$ until it is 
PRINTed (by line 2900). 



4100 A two word phrase, "SO THEY ", is stored in WRD$ for later addition 
to the story. Next, the subroutine beginning at line 2900 is executed. This 
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subroutine not only PRINTs the contents of WRD$, but prevents the 
contents of WRD$ from being printed so that they breach the right margin. 
After one of five "attack results" is added to WRD$, the subroutine which 
begins at line 2900 is executed. For all intents and purposes, the RETURN 
statement at line 4100 completes the program. 

4110-4150 These five line contain the five "result" of the "attack method." 

Even as you read these words some of the illustrious characters whose names 
are stored in the data statements are slipping into obscurity. Put in your own 
selection of names. This program is really an easy one to change and make 
your own. Change the data statements and print commands to your own 
fiendish specifications. You can save the new version under a new name and 
have both versions on diskette. Remember! What you change in the computer's 
memory does not change what is stored on the diskette unless you save the 
new version and give it the same name as the old version. It is sound practice 
to leave the original version unchanged on a different diskette and call your 
version SCI-FI VI, SCI-FI V2, etc. Have fun changing things around. It's the 
best way to learn. 
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11 REM *** *«* 

12 REM »•* SCI-FI •** 

13 REM *** **« 

14 REM »•****«•«»**•«*•«*«« 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 END 
lOOO : 

1010 REM *** INSTRUCTIONS *** 




1020 : 

1030 POKE S3280,6:PCN<E 53281,6 

1040 VT*=" {HOME> {CSD> {CSO> {CSD> {CSO> «CSD 

y €CSD> {CSO> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD 

> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {C8D> {CSD 

> {CSO> < CSO> {CSD> " 

1050 GOSUB 1900 

1060 PRINT "THIS PROGRAM WILL PRODUCE LO 
TS OF FUNNY" 

1070 PRINT "LITTLE SCIENCE-FICTION STORI 
ES FOR YOUR" 

1080 PRINT "READING PLEASURE. ": PRINT 
1090 PRINT "YOU ARE GIVEN THE CHANCE TO 
ENTER SOME" 

1100 PRINT "PERSONALLY RELEVANT INFORMAT 
ION IN HOPES"; 

1110 PRINT "OF MAKING THE STORIES MORE I 
NDIVIDUAL. " 

1800 PRINT LEFT* (VT*, 24) ; "PRESS tRVS 0N> 
RETURN{RVS OFF> WHEN READY TO CONTINUE: 
CRVS 0N> " 

1810 GET AN«:IF ANS^"" THEN 1810 
1890 RETURN 

1900 PRINT "{CLR>{WHT><CSD}{CSD>"|TAB(13 
);"*»» SCI-FI ***": PRINT: PRINT 
1990 RETURN 

2000 : 

2001 REM •** SETUP **• 

2002 : 

2010 DIM S0«(15):S0»0 
2015 DIM PL«(15}:PL-0 
2020 DIM M0«(15}:M0>0 
2025 DIM H0«(15):H0«0 

2030 READ 80«: IF SO«<>"END" THEN SObSO+I 
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:so«(SO)«so«:60TO 2030 

2035 read pl*: if pl«<>"end" then pl=pl+1 

:pl*(pl)=pl*:goto 2035 

2040 READ MO*: IF MO*<>"END" THEN riO=l10+l 

:rio*(rio>=tio*:GOTO 2040 

2045 READ HO*: IF HO«<>"END" THEN H0=H0+1 
:H0*(H0)»H0«:60T0 2045 

2050 DATA ALEXANDER HAIG, RONALD REAGAN, S 
UPER CHICKEN, FATHER GUI DO SARDUCCI 
2055 DATA A LITTLE GIRL, AN INTERESTED ON 
LOOKER, SUPERMAN, "END" 

2060 DATA SYRACUSE, NEM YORK, EARTH, THE UN 

ITED STATES, YOUR TOWN, LOS ANGELES 

2065 DATA WALLA-WALLA WASHINGTON, THE PRE 

SIDENT,THE EASTERN COAST, "END" 

2070 DATA LITTLE GREEN MEN, A CROWD OF AN 

CRY PEASANTS BEARING TORCHES, BOOGEY MEN 

2075 DATA ALIENS, IN-LAWS, SPACE EGGS,FLYI 

NG GOOKIES, ZOMBIES, RELIGIOUS FANATICS 

2080 DATA ICKY THINGS, "END" 

2085 DATA VENUS, MARS, OUTER SPACE* OUT OF 

OUR GALAXY, THE MOON, THE 4TH DIMENSION 

2090 DATA THE NEGATIVE ZONE, A TIME WARP, 

THE STARS, PLUTO, "END" 

2095 DEF FN R<X>=INT(RND<1)*X>+1 

2100 GOSUB 1900 

2110 PRINT LEFT* (VT*,Q); "TYPE UP TO 5 NA 

MEG OF PEOPLE THAT WILL" 

2120 PRINT "SAVE THE DAY:": PRINT 

2130 C0«0 

2140 INPUT "===> ";SO*:IF SO*="END" THEN 
2200 

2150 SO=SO+l:SO*(SO>sSO*:CO»CO+l: IF C0<5 

THEN 2140 

2200 GOSUB 1900 

2210 PRINT LEFT*<VT*,8)S"TYPE UP TO 5 NA 

MES OF PLACES THAT WILL" 

2220 PRINT "BE ATTACKED: ": PRINT 

2230 CObO 

2240 INPUT "===> "SPL*:IF PL*»"END" THEN 

2300 

2250 PL=PL+l:PL*<PL)=PL*:CO=CO+l: IF C0<5 

THEN 2240 
2300 GOSUB 1900 

2310 PRINT LEFT*<VT*,8>;"TYPE UP TO 5 NA 
MES OF MONSTERS THAT WILL"! 
2320 PRINT "ATTACK: ": PRINT 
2330 C0«0 

2340 INPUT "===> ";MO*:IF MO*="END" THEN 
240O 
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THEN 2910 



2350 nO=MO-<-l:l10«(l10)»MO«:CO»CO-i-l: IF C0<5 

THEN 2340 
2400 60SUB 1900 

2410 PRINT LEFT*<VT*,8) ; "TYPE UP TO 5 NA 
MES OF PLACES THAT" 

2420 PRINT "MONSTERS COME FROM:": PRINT 
2430 C0«0 

2440 INPUT "==»> "3H0«:IF HO«<="END" THEN 
2500 

2450 HO«HO-»-l:HO$(HO)»W)«:CO«CO-i-l: IF C0<5 

THEN 2440 
2500 RETURN 
2900 PT-1 

2910 PRINT MID*<WRD*,PT, 1);:IF MID«(WRD« 
,PT, 1)=" " AND P0S<0)>30 THEN PRINT 
2920 PT«PT+l:lF PT<«LEN<MRD«) 
2990 RETURN 

3000 : 

3001 REM **« PLAY *** 

3002 : 

3010 60SUB 3100: REM TITLE 
3015 60SUB 3200: REM PLACE 
3020 GOSUB 3300: REM ACTION 
3025 GOSUB 3400: REM MONSTER 
3030 GOSUB 3500: REM PLACE 
3035 GOSUB 3600:REM SOMEONE 
3040 GOSUB 3700: REM DEFEND 
3045 GOSUB 3800: REM TOO TOUGH 
3050 GOSUB 3900: REM FINALLY 
3055 GOSUB 3600: REM SCHIEONE 
3060 GOSUB 4000: REM DEFEND 
3065 GOSUB 4100: REM THEY DIED 
3070 : 

3080 PRINT LEFT«(VT«,24); "PRESS ANY KEY 
TO CONTINUE" 

30G5 I^T AN«:IF AN«b"" THEN 3085 

3090 GOTO 3010 

3100 PRINT "€CLR>tCSD>CCSD>" 

3105 ON FNR(5) GOSUB 3110,3120,3130,3140 

, 3150: PRINT " {CSD> <:CSD> {CSD> " : RETURN 

3110 PRINT "*** FLASH! FLASH! FLASH! *«* 

": RETURN 

3120 PRINT "*** BULLETIN!!! »*»": RETURN 
"*** ALERT !!! »»#": RETURN 
"«*« SPECIAL NEWS BULLETIN ** 




3130 PRINT 
3140 PRINT 
»": RETURN 
3150 PRINT 
URN 

3200 WRD««PL«(FNR(PL})-i-" ": GOSUB 2900 
3290 RETURN 



•»*» TO ALL CITIZENS *»*":RET 
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3300 ON FNR(5) GOSUB 3310,3320,3330,3340 

,3350:e08UB 2900: RETURN 

3310 WRD««"WAS ATTACKED BY RETURN 

3320 WRO«a"WAS EATEN BY ": RETURN 

3330 WRD«s"IS UNDER THE SPELL OF ":RETUR 

N 

3340 WRD«""IS BEINB INVADED BY ": RETURN 
3350 WRD«""IS BEING OVER-RUN BY »: RETURN 
3400 WRD*=MO*<FNR(MO))+" ": GOSUB 2900 
3490 RETURN 

3500 WRD*="FROM ": GOSUB 2900 

3510 WRD«sHO«(FNR(HO)>+". ": GOSUB 2900 

3590 RETURN 

3600 WRD«»SO«(FNR(SO))-l-" ": GOSUB 2900 
3690 RETURN 

3700 WRD*="TRIED TO ": GOSUB 2900 

3705 ON FNR<5> GOSUB 3710,3720,3730,3740 

,3750: GOSUB 2900: RETURN 

3710 WRD*="KILL THEM ": RETURN 

3720 WRD*="FIGHT THEM RETURN 

3730 WRI>«»"HOLD UP A CROSS RETURN 

3740 WRD*="ATTACK AT DAWN ": RETURN 

3750 WRD«="SHOOT THEM ": RETURN 

3800 WRD*="BUT THEY ": GOSUB 2900 

3805 ON FNR(5) GOSUB 3810,3820,3830,3840 

,3850: GOSUB 2900: RETURN 

3810 WRD«>«"WERE TOO TOUGH. ": RETURN 

3Q20 WRD*="KEPT COMING. ": RETURN 

3G30 WRD«»" YELLED AND LAUGHED. ": RETURN 

3640 WRD4i=" SCREAMED FOR MORE. ": RETURN 

3850 WRD«="SHOT BACK. ": RETURN 

3900 ON FNR(5) GOSUB 3910,3920,3930,3940 

,3950: GOSUB 2900: RETURN 

3910 WRD«="FINALLY, ": RETURN 

3920 WRD*="LATER, ": RETURN 

3930 WRD*="THEN. . . ": RETURN 

3940 WRD*="BUT THEN, ": RETURN 

3950 WRD«= "LUCKILY, ": RETURN 

4000 ON FNR(5) GOSUB 4010,4020,4030,4040 

,4050: GOSUB 2900: RETURN 

4010 WRD««" YELLED AT THEM, ": RETURN 

4020 WRD«""DROPPED WATER ON THEM, ":RETU 

RN 

4030 WRD«="EXPOSED THEM TO MEASLES, ":RE 
TURN 

4040 WRD«»"NUKED THEM, ": RETURN 

4050 WRD«»"SHOWED THEM RERUNS OF 'I LOVE 

LUCY', ": RETURN 
4100 WRD«»"SO THEY ": GOSUB 2900 
4105 ON FNR(S) GOSUB 4110,4120,4130,4140 
,4150: GOSUB 290O: RETURN 
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4110 WRD«B-DIED.": RETURN 

4120 WRD«""TURNED INTO LITTLE BROWN LUHP 
S.-: RETURN 

4130 WRD«»"PASSED AWAY. ": RETURN 

4140 WRD«>»"LEFT FOR HOME. ": RETURN 

4150 WRD«»" VANISHED INTO NOTHINGNESS. ":R 

ETURN 




/ 
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This program is designed to interpret input, and from it, graph the user's 
biorhythms. You can trust the results as much as you want, but don't expect 
the results to be infallible! Biorhythms, though fascinating, are still considered 
to be unscientific. There are several features of the program worth noting, 
whether you believe in Biorhythms or not: 

Lines 2050-2060 contain the names of the twelve months and the seven days 
of the week. In later sections, like lines 3290 and 3510, parts of these strings 
will be cut out to display the appropriate month or day. 

In each of lines 3060, 3130, and 3230, the program makes it clear what 
format the response should be entered under. Little prompts like this help 
make programs more fun to use and less likely to crash. 

Line 1230 allows you to choose whether you want to see your biorhythms 
printed out on the screen or on the printer. The channel to the printer is 
opened in line 3250, right before the actual printing of the graph takes place. 

The program uses some complex mathematical functions to determine how 
the three cycles are plotted on the screen or printer. 



V 
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»•«*«*«***»***•*«***«**** 



1000 
2000 
3000 




10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 
20 GOSUB 
30 GOSUB 
40 GOSUB 
50 END 
1000 : 

lOlO REM *** INSTRUCTIONS **« 
1020 : 

1030 VT*=" {HOME> <CSD> {CSD> {CSD> tCSD> tCSD 

> {CSD> {CSD> {CSD> {CSD> CCSD> {CSD> {CSD> <CSD 

> {CSD> {CSO> {CSO> {CSD> {CSD> {CSD> {CSD} <CSD 

> tCSDXCSDXCSDl " 

1040 PCn<E 532S0,6:P0KE 53281,6 

1050 GOSUB 1900 

1060 PRINT "A BIORHYTHMIC CALENDAR IS CO 
MPOSED OF" 

1070 PRINT "THE LETTERS I, E AND P. EAC 
H OF THESE" 

1080 PRINT "REPRESENTS ONE OF YOUR MEASU 
RABLE" 

1090 PRINT "BIORHYTHMIC CYCLES. ": PRINT 
1100 PRINT: PRINT TAB<6) ; "I»INTELLECTUAL 
STATE" 

lllO print: PRINT TAB<6)J"E=EM0TI0NAL STA 
TE" 

1120 print: PRINT TAB<6) ; "P=PHYSICAL STAT 
E" 

1130 
1140 
YOUR 
1150 

N The 



fee 




GOSUB 1800: GOSUB 1900 

PRINT "THIS PROGRAM WILL GRAPH OUT 

UNIQUE" 

PRINT "BIORHYTHMIC CYCLES, 
SCREEN"! 



EITHER O 



A PRINTER. ": PRINT 
THE SPACEBAR TO PAUSE 



1160 PRINT "OR TO 
1170 PRINT "PRESS 
THE PRINTOUT"; 

1180 PRINT "ON THE SCREEN AND AGAIN TO R 
ESUME.": PRINT 

1190 PRINT "SHOULD I OUTPUT TO:": PRINT 

1200 PRINT TAB(S>;"S)CREEN" 

1210 PRINT TAB < 10) ; "-OR-" 

1220 PRINT TAB<8) ; "P)RINTER" 

1230 PRINT LEFT* (VT«, 24); "WHICH DO YOU W 
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ANT 
1240 
1250 
1790 
1260 
1790 
1800 



<S/P> ? {RVS 0N> {RVS 
SET P»:IF P»="" THEN 
IF P»»"P" THEN PRINT 



' {CSL>S' 



OFF>"; 
1240 

'•{csl>P"':boto 



PRINT ' 
RETURN 

PRINT LEFT«<VT«,24); "PRESS {RVS DN> 
RETURN^RVS OFF> WHEN READY TO CONTINUE: 
{RVS 0N> {RVS OFFJ" 

BET AN«:IF AN«<»"" THEN 1810 
RETURN 

PRINT " {CLR> {WHT> {CSD> {CSD> " > TAB ( 1 1 

BIORHYTHM »»»": PRINT: PRINT 
RETURN 



SW=29 : P I 2=6 . 283 1 853 1 

DIH A«(SW>,PL(23>,EL(28),IL(33> 

C«»"JANFEBriARAPRnAYJUNJULAUGSEPOCTN 



'"SUNMONTUEWEDTHUFRISAT" 

1=1 TO sw:a«<i>>" ":next 



1810 
1890 
1900 

>; 

1990 

2000 : 

2010 REM ««« SETUP ««« 
2020 : 
2030 
2040 
2050 
OVDEC" 
2060 W« 
2070 FTO 
2080 B«INT (SW/2) : A»B-i-l . 5 
2090 FOR I"l TO 33 

2100 IL(I)»INT(A-i-B*SIN(PI2*<I-l)/33)) 

2110 IF I>28 THEN 2150 

2120 EL ( I ) BiNT (A4-B*SIN (PI2* ( I-l ) /28> > 

2130 IF I>23 THEN 2150 

2140 PL < I ) =INT ( A-i-B*SIN (PI2» ( I-l ) /23) ) 

2150 NEXT 

2160 ML»-" - O +" 

2990 RETURN 
3000 : 

3010 REM *** PLAY *«• 
3020 : 

3030 60SUB 1900 

3040 INPUT "WHAT IS YOUR NAME"SN« 
3050 ER"0 

3060 PRINT: PRINT "WHAT IS YOUR BIRTHDATE 
?": INPUT "(MM,DD,YY>"5M«,D«,Y* 
3070 M"VAL(M«) 

M>12 OR M<>INT(M) 
MONTH ":ER»1 



3075 IF M<1 OR 
INT "INCORRECT 
3080 D«VAL(D«) 
3085 IF D<1 OR 
INT "INCORRECT 
3090 Y=VAL(Y«) 
3095 IF Y<0 OR 



THEN PR 



0>31 OR D<>INT(D) 
DAY":ER»1 



THEN PR 



Y<>INT<Y) THEN PRINT "INC 



ORRECT YEAR":ER->1 
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3100 IF ER THEN ER»0:60T0 3060 
3110 IF Y<100 THEN Y«Y+1900 
3120 GOSUB 3800: S«J 

3130 PRINT: PRINT "WHAT IS THE START DATE 
?•• : INPUT " (MM, DD, YY) " ; M«, D«, Y* 
3140 M1=VAL<M») 

3145 IF MKl OR Ml>12 OR M1<>INT(M1) THE 
N PRINT "INCORRECT MONTH" :ER=1 
3150 D1"VAL(D«) 

3155 IF DKl OR Dl>31 OR D1<>INT<D1) THE 
N PRINT" INCORRECT DAY":ER=1 
3160 Y1"VAL<Y*) 

3165 IF YKO OR YlOINTCYl) THEN PRINT" I 

NCORRECT YEAR":ER=1 

3170 IF ER THEN ERs0:60T0 3130 

3180 IF YKIOO THEN Yl-Yl+1900 

3190 IF Y1>Y THEN 3230 

3200 IF Y1=Y AND M1>M THEN 3230 

3210 IF Y1=Y AND M1=M AND D1>»D THEN 323 



3220 PRINT "START DATE BEFORE BIRTHDATE" 
:60T0 3130 

3230 print: INPUT "HOW MANY DAYS"; Z«:Z*VA 
L(Z«> 

3235 IF Z<1 OR Z<>INT<Z) THEN 3230 
3240 PRINT "€CLR>"; 

3250 IF P*»"P" THEN OPEN 4,4,2:CMD 4 
3260 PRINT TAB < 10) ; "BIORHYTHMIC CALENDAR 

n 

3270 PRINT TAB (14) 5" FOR " 

3280 PRINT TAB(INT((40-LEN(N*))/2))JN* 
3290 PRINT TAB(8);"B0RN ON ";MID»(W«,3»N 

-2, 3) ; d; mid* (C«, 3*m-2, 3) ; y: print 

3300 print tab(5) ; "p=physical (23 d 

AY CYCLE)" 

3310 PRINT TAB(5);"EaEM0TI0NAL (28 D 

AY CYCLE) " 

3320 PRINT TAB(5);"I=INTELLECTUAL (33 D 
AY CYCLE)" 

3330 PRINT: print: PRINT 

3340 MbM1:D«D1:Y»Y1: GOSUB 3800:GCmUB 390 

o:J2»Jl 

3350 MaM+l:D»l: GOSUB 3900:LE»J1-J2 
3360 IF LE>Z THEN LE"Z 
3370 Z=Z-LE 
3380 Dl-Dl-1 

3390 f»j-s:e«f+le-i 
3400 for k»f to e 

3410 Dl»Dl-l-l 

3420 PK»K-INT(K/23)*23+l 
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3430 EK=K-INT (K/28) *2B+1 
3440 IK=K-INT<K/33)*33+l 
3450 A«(PL(PK))»"P" 

3460 IF A«(EL(EK>)«" " THEN A«(EL(EK))«" 

E":G0T0 3480 

3470 A*<EL(EK) )="*" 

3480 IF A*(IL<IK))=" " THEN A*(IL(IK))=" 

I":G0T0 3500 

3490 A»<IL< IK) )=••*" 

3500 IF A*<B+1)=" " THEN A*(B+1)»". " 
3510 IF Dl-1 OR K=F THEN PRINT niD«(C«,3 
*M1-2,3)5Y;ML» 

3520 PRINT mD«(W«,3*N-2,3)$RI6HT«(" "+ 
STR«(D1>,3);" 

3530 FDR I»l TO SW: PRINT A«(I} ; :A«(I)»" 

NEXT: PRINT 
3540 IF P«="P" THEN 3570 
3550 GET AN*: IF AN«="" THEN 3570 
3560 GET AN«:IF AN*="" THEN 3560 
3570 N=N+l:IF N>7 THEN N=l 
3580 NEXT 

3590 Dlsl:MlsMl+l:IFm>12 THEN M1=1:Y1=Y 
1+1 

3600 IF Z THEN 3340 

3610 PRINT TAB(9>;ML« 

3620 IF P«»"P" THEN PRINT«4: CLOSE 4 

3630 PRINT "DO YOU WANT TO MAKE ANOTHER 

CHART? «RVS ON} {RVS OFF>";:GET AN« 

3640 GET AN«:IF AN*="" THEN 3640 

3650 IF AN*="Y" THEN 3000 

3660 PRINT '•<CSL>N" 

3790 RETURN 

3800 TEN FIND DAY OF WEEK 

3810 ir M<3 THEN M0=M+10: YO=Y-l:GOTO 383 


3820 M0=M-2:Y0=Y 

3830 J=INT(Y0/100) :K=Y0-<J*100) 

3840 N=INT< (13»M0-1)/5)+D+K+INT(K/4)+INT 

< J/4) -2*J+77: N=N-INT <N/7) *7+1 

3850 M0=M0-1 : J=INT ( ( 146097*J ) /4) +D+INT < < 

1461*K) /4) +INT ( < 153«M0+2) /5) 

3890 RETURN 

3900 REM FIND JULIAN DATE 
3910 L»2:IF M<3 THEN L»0:GOTO 3960 
3920 IF Y<>INT<Y/4)*4 THEN 3960 
3930 IF Y<>INT(Y/100)»100 THEN 3950 
3940 IF Y<>INT(Y/400)*400 THEN 3960 
3950 L=l 

3960 J1=INT ( <3055* (M+2) ) /lOO) -91+D-L 
3990 RETURN 
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This game is a good demonstration of how "intelligence" is programmed 
into many computers. This intelligence is actually created with a complex 
series of "truth tests," each of which check to see if part of a larger statement 
is true. The computer begins by being able to identify two objects, a car and 
a house (line 2060). With each object entered, it becomes harder to stump 
the computer. The DIM statement in line 2030 sets aside a certain amount 
of memory for the variables QU$(1) - QU$(50), (and for RI, WR, and RA$ 
as well). The variables QU$(1) through QU$(50) will contain the Questions 
entered by the user after the object has tried to guess the object. This 
program demonstrates how you can write to array tables and how to search 
arrays for matching strings. You could use the routines in this program to 
write educational programs and tests. 



V 

45 



r 



10 REM »»♦»♦»»*»»»»****»** 

11 REM *»* *•* 

12 REM »»*C-64 LEARNER •** 

13 REM »** 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 END 
1000 : 

1010 REM *** INSTS 
1020 : 

1 030 VT«= €HOME> {CSD> {CSD> tCSD> « CSD> tCSD 

> tCSD> €CSD> €CSD> {CSD> {CSD> {CSD> {CSD> tCSD 

> {CSD> {CSD> tCSDJ {CSD> tCSDJ {CSO> {CSD> tCSD 

> {CSD> €CSD> {CSD> " 

1040 P0KE532S0,6:P0KE53281,6 

1050 GOSUB 1900 

1060 PRINT "THIS IS A GAME THAT HAS THE 
ABILITY TO" 

1070 PRINT "LEARN. THE COMPUTER WILL TR 
Y TO GUESS" 

1080 PRINT "AN OBJECT THAT YOU SELECT AT 

RANDOM. ": PRINT 
1090 PRINT "WHENEVER YOU STUMP THE COMPU 
TER, YOU ARE"; 

1100 PRINT "ASKED ABOUT THE OBJECT YOU S 
ELECTED. BY"; 

1110 PRINT "COMPILING THIS INFORMATION, 
THE COMPUTER"; 

1120 PRINT "'LEARNS'.": PRINT 

1130 PRINT "ENTER THE WORD 'STOP' WHEN Y 

OU ARE DONE." 

1800 PRINT LEFT*(VT«,24>; "PRESS <RVS 0N> 

RETURNtRVS OFF> WHEN READY TO CONTINUE: 

tRVS 0N> tRVS OFF>" 

1810 GET AN«:IF AN«="" THEN 1810 

1890 RETURN 

1900 PRINT "€CLR>tWHTJ{CSDJCCSD>";TAB<10 
);"*** C-64 LEARNER »**": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM ««* SETUP 
2020 : 

2030 DIM QU«<50),RI(50>,WR(S0),RA«(50},W 
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A«(50) 

2040 QU«(1)="D0ES IT MOVE ALONG THE GROU 
ND" 

2050 RI(1)=0:WR(1)»0 

2060 RA«(1)="CAR":WA«(1)="H0USE" 

2070 FR-2 

2990 RETURN 

3000 : 

3010 REM «** PLAY *** 
3020 : 

3030 GOSUB 1900 
3040 H=l 

3050 PRINT "I KNOW 0F"JFRS "OBJECTS. .. ":P 
RINT 

3060 PRINT: PRINT QU« (LI) $: INPUT AN«:AN«» 
LEFT»(AN«, 1) 

3070 IF AN*="Y" THEN 3100 
30S0 IF AN*»"N" THEN 3200 
3090 IF AN*="S" THEN 3990 
3095 PRINT "PLEASE ANSWER 'YES' OR 'NO'. 

. . ":print:goto 3060 

3100 if rkli) then li=ri<li) :60t0 3060 

3105 6U«»RA«(LI):60T0 3300 

3200 IF WR<LI) THEN LI"WR(LI) :GOTO 3060 

3205 6U«»WA«(LI) 

3300 PRINT: PRINT "IS IT A ";GU«; 

3310 INPUT TA«:TA«»LEFT«(TA«,1) 

3320 IF TA*="S" THEN 3990 

3330 IF TA«="Y" THEN PRINT: PRINT "I GOT 

IT!!!":FOR PA=1 TO 1000: NEXT: GOTO 3000 

3340 PRINT: PRINT: INPUT "WHAT WAS THE OBJ 

ECT";NA* 

3350 IF FR<51 THEN 3380 

3360 PRINT "I CAN'T REMEMBER THAT ONE. M 
Y MEMORY SEEMS TO BE FULL." 
3370 FOR PA=1 TO 1000: NEXT: GOTO 3000 
33G0 PRINT: PRINT "WHAT IS A QUESTION THA 
T I COULD" 

3390 PRINT "USE TO TELL THE DIFFERENCE B 
ETWEEN" 

3400 PRINT GU«;" AND ";NA«!: INPUT QU« 
3410 PRINT: PRINT "FOR ";NA*S" THE ANSWER 

IS WHAT"?: INPUT YN«:YN*=LEFT*(YN*, 1) 
3420 IF YN*<>"Y" AND YN»<>"N" THEN 3410 
3430 IF AN*""Y" THEN RI (LI)=FR:LI-FR:FR» 
FR+1 

3440 IF AN*«"N" THEN WR(LI)=FR:LI=FR:FR= 
FR+1 

3450 QU«(LI)»QU« 
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3460 IF YN*»"Y" THEN RA*(LI)-NA*: WA»<LI) 
"GU* 

3470 IF YN»""N" THEN RA»<LI)=BU»:WA*<LI) 
«NA« 

3480 GOTO 3000 
3990 RETURN 
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This is definitely a thinking man (or woman's) game! Distantly related to the 
game Mastermind, you are given clues to help determine a random three 
number combination in which each number is different from the other two. 
List lines 2040-2070. This is where the three number combination is defined. 
Line 2040, DEF FNR(X)=INT(RND(1)*X) will produce a random number 
in the range specified by the value X which is used with the FN R commands 
in lines 2050-2070. So when line 2050 sets Nl (the first number) equal to 
FN R(10), the value in parentheses is entered into the function R as stated 
in line 2040. This will yield a number between and 9. The second number 
(N2) is generated in the first part of line 2060; the second statement in the 
line compares it to the (Nl). If they are the same, the line is repeated until a 
new N2 is generated. Line 2070 does the same thing for N3. Now list lines 
3100-3130. These lines separate your single three-digit guess into three 
separate guesses (Gl, G2, and G3). Here's how. When any number is 
converted into an integer, the portion of the number to the right of the 
decimal point is truncated (cut off). Here are a few examples: INT 3.4 is 3, 
INT 9.989 is 9, INT 562.3 is 562, and INT 0.3 is 0. Taking line 3100, assume 
that the guess is 567. 567 divided by 100 is 5.67. When converted to an 
INTeger, 5.67 becomes 5 (GI=5). Line 3110 takes 567, subtracts 5 X 100, 
divides the result (67) by 10, and converts 6.7 into the INTeger. Now Gl=5 
and G2=6. Lastly, 3120 takes 567 (ANS) and subtracts from it (5(Gl)times 
100 plus 6(G2) times 10) or 560. The result (567 - 560) is now stored in G3. 
So now Gl=5, G2=6, and G3=7. Statistically, even when you are unlucky, 
the solution can be derived in no more than seven guesses. You've been 
challenged, now go to it! 
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10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 
60 END 
1000 : 

1010 REM *»• INSTRUCTIONS **» 
1020 : 

1030 VT«-" <HOME> tCSDJ tCSD> CCSD> «CSD> <CSD 

> {CSD> CCSD> {CSD> tCSDJ <CSD> {CSD> tCSD> tCSD 

> {CSD> <CSD> <CSD> {CSD> {CSDl {CSD> {CSD> tCSD 

> {CSD> {CSD> {CSD> " 

1040 POKE 53280, 6: POKE 53281,6 

1050 GOSUB 1900 

1060 PRINT" I WILL THINK OF A NUMBER BETW 
EEN 012" 

1070 PRINT "AND 987. EACH DIGIT IN THE N 
UMBER WILL" 

1080 PRINT "BE DIFFERENT FROM THE OTHER 
TWO.": PRINT 

1090 PRINT "THE OBJECT OF THE GAME IS TO 

GUESS THE" 
1100 PRINT "SOLUTION IN AS FEW TRIES AS 
POSSIBLE. " 

mo GOSUB 1800: GOSUB 1900 
1120 PRINT "AFTER EACH GUESS I WILL PRIN 
T A HINT" 
1130 PRINT 
1140 PRINT 
HE CORRECT" 
1150 PRINT 
X' . "SPRINT 

116o' PRINT ">FOR A CORRECT DIGIT WITH AN 
INCORRECT" 

1170 PRINT " POSITION, I WILL PRINT AN ' 
O'.": PRINT 
1180 PRINT 
S, I WILL" 
1190 PRINT 



"LINE AS follows:": PRINT 
">FOR EACH CORRECT DIGIT IN T 

" POSITION, I WILL PRINT AN ' 



'>FOR TOTALLY INCORRECT DIGIT 
• PRINT A '-'.": PRINT 
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1200 PRINT "PLAY WILL CONTINUE UNTIL YOU 
GUESS THE" 

1210 PRINT "NUMBER. TO QUIT EARLY, SIMPL 
Y HIT THE" 

1220 PRINT "CRVS ON>RETURN{RVS OFF> KEY 

FOR YOUR GUESS." 

1230 60SUB 1800:G0SUB 1900 

1240 PRINT "HERE IS A TABLE TO HELP YOU 

UNDERSTAND" 

1250 PRINT "HOW THE HINTS WORK. ": PRINT 
1260 PRINT "ANSWER GUESS HINT LI 

NE " 

1270 PRINT " 

— ": PRINT 



1280 PRINT 


H 


065 


703 


0— ": 


PRINT 










1290 PRINT 


•• 


562 


463 


X — ": 


PRINT 










1300 PRINT 


n 


918 


890 


00-": 


PRINT 










1310 PRINT 


II 


390 


305 


X0-": 


PRINT 










1320 PRINT 


n 


271 


721 


xoo": 


PRINT 










1330 PRINT 


n 


425 


780 




1800 PRINT 


LEFT*(VT*, 


24); "PRESS {RVS 0N> 


RETURNtRVS 


0FF> WHEN 


READY TO 


continue: 



{RVS 0N> {RVS OFF>" 

1810 SET AN«:IF AN«="" THEN 1810 

1890 RETURN 

1900 PRINT "{CLR>{WHT>{CS0>{CSD>"JTAB(13 
)S"»»» DIGITS ***": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM *** SETUP **« 
2020 : 

2030 PRINT "{CLR>"; 

2040 DEF FNR(X)eINT<RND(l>*X) 

2050 Nl^FNRdO) 

2060 N2»FNR(10):IF N1bN2 THEN 2060 

2070 N3bFNR(10>:IF N3aNl OR N3»N2 THEN 2 

070 

2990 RETURN 
3000 : 

3010 REM **» PLAY »♦♦ 
3020 : 

3030 GOSUB 1900 

3040 PRINT "OKAY, I'VE GOT A NUMBER...": 
PRINT 

3050 AN«»"": INPUT "WHAT IS YOUR GUESS"; A 
N»:IF AN*""" THEN 3990 
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3060 IF LEN(AN«)b3 THEN 3080 
3070 PRINT "TYPE THREE DIGITS PLEASE": GO 
TO 3050 

30S0 ANbVAL(AN«) 

3090 IF AN<0 OR AN>999 OR ANOINT (AN) TH 
EN 3070 

3100 G1»INT(AN/100) 
3110 G2"INT< (AN-S1*100)/10) 
3120 G3=AN-<B1»100+G2»10) 
3130 IF G10G2 AND G10G3 AND G20G3 THE 
N 3200 

3140 PRINT "TYPE THREE DIFFERENT DIGITS 
PLEASE": GOTO 3050 
3200 CP'=0:CD=0:MI=0 
3210 IF G1=N1 THEN CP=CP+1 
3220 IF G2»N2 THEN CP=CP+1 
3230 IF G3=N3 THEN CP=CP+1 
3240 IF G1=N2 OR G1=N3 THEN CD-CD+1 
3250 IF G2»N1 OR G2-N3 THEN CD-CD+1 
3260 IF G3=N1 OR G3=N2 THEN CD=CD+1 
3300 MI=3-CP-CD 

3310 PRINT "FOR YOUR GUESS OF ";AN»;", I 
HINT "; 

3320 IF CP>0 THEN FOR I-l TO CP: PRINT "X 
" ' : NEXT 

3330 IF CD>0 THEN FOR 1=1 TO CD: PRINT "O 
" * : NEXT 

3340 IF MI>0 THEN FOR 1=1 TO MI: PRINT "- 
" S : NEXT 

3350 PRINT: print: NG=NG+l: IF CP<3 THEN 30 
50 

3990 RETURN 
4000 : 

4010 REM *** END *«* 
4020 : 

4030 PRINT "THE GAME IS OVER. . . ":PRINT 
4040 IF CP=3 THEN PRINT "YOU GUESSED IT 
IN ONLY" ;NG5 "TRIES!" 
4050 T*="" 

4060 N«=STR«(Nl>+STR«<N2)-i-STR«<N3> 
4070 FOR 1=1 TO LEN(N«) :M«=MID«(N«, I, 1) : 
IF M*<>" " THEN T*=T*+M« I 
40S0 NEXT V 
4090 IF CP<3 THEN PRINT "THE CORRECT NUM 
BER WAS " S T$ 

4100 PRINT "DO YOU WANT TO PLAY AGAIN? <. 
RVS 0N> <RVS OFF>"; 
4110 GET AN«:IF AN*="" THEN 4110 
4120 IF AN«="Y" THEN RUN 
4130 PRINT "{CSL>N" 
4990 RETURN 
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In this game, you are given a perplexing challenge: you must wend your way 
through a series of caverns in search of the Grue. Unfortunately, you are not 
spelunking in the most stable of areas — earthquakes can shift the position 
of the rooms at any time! Although this game does not feature any colorful 
graphics, it does use some interesting concepts. You may ask "Why do I get 
different mazes each time I run the program?" Here's why. Lines 2100- 
2295 contain descriptions of the room. (Notice how each pair of DATA 
statements make up a single room description.) Line 2050 reads these 
DATA statements two at a time (READ A$,B$). This structure allows room 
descriptions that are longer than one-program-line long. Lines 2800 through 
2950 assign certain variables random values. Beginning at line 3050, this 
becomes relevant. One of four messages is printed. Which one it is depends 
on the RaNDom values of the several variables (EX, PI, P2, Bl, B2, and 
GU). Line 3100 reveals that there is a one in fifteen chance of an earthquake 
every move. Paraphrased, line 3100 says,"If a RaNDom number between 1 
and 15 is equal to 4, then GOSUB 60300 (make a beep), then PRINT 
'EARTHQUAKE,' then continue with the GOSUB 2900 and GOTO 3000." 
As you go through the program, you will notice that the execution of most 
of the lines depends, either directly or indirectly, on the value of a randomly 
generated integer. 
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««■******«**««******« 

*** 6RUE STEW 
»»» »*♦ 
*»««*««*««*««**««*«« 



10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

20 60SUB 1000 
30 60SUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 
60 END 
1000 : 

1010 REM »** INSTRUCTIONS »»* 
1020 : 

1030 POKE 53280, 6: POKE 53281,6 

1 040 VT«» " {HOME> <CSD> CCSD> {CSD> {CSD> tCSD 

> {CSD> {CSD> {CSD> {CSD> CCSD> {CSD> {CSD> {CSD 

> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD 

><CSD> <CSO} <CSD>" 

1050 GOSUB 1900 

1060 PRINT "IN THIS GAME YOU ARE A BRAVE 

HUNTER. " 
1070 PRINT 
O YOU" 
1080 PRINT 
A GRUE," 
1090 PRINT 




"YOU ARE ALSO VERY HUNGRY. S 
"DECIDE TO GO 'GRUE' HUNTING. 



IS THE KE 



"STEW BASE, THE GRUE. ": PRINT 
"IF YOU CAN BAG A GRUE AND 6E 



AS EVERYONE KNOWS, 
Y INGREDIENT"; 

1100 PRINT "IN GRUE STEW. ": PRINT 

1110 PRINT "YOU ARE GOING TO ENTER A SER 

lES OF" 

1120 PRINT "UNDERGROUND CAVES, IN SEARCH 

OF THE" 
1130 PRINT 
1140 PRINT 
T OUT OF" 

1150 PRINT "THE CAVES, THEN YOU WILL GET 

YOUR STEW" 
1160 PRINT "(AND WIN THE GAME)!!" 
1170 GOSUB 1800: GOSUB 1900 
1180 PRINT "ONCE IN THE MAZE, YOU CAN EI 
THER MOVE" 

1190 PRINT "TO A DIFFERENT CAVERN OR SHO 
OT AN ARROW" 

1200 PRINT "INTO AN ADJOINING CAVERN, IN 
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HOPES OF" 

1210 PRINT "HITTING A FEROCIOUS GRUE.":P 
RINT 

1220 PRINT "I WILL ASK: MOVE OR SHOOT?, 
AND YOU MUST"; 

1230 PRINT "REPLY 'M' FOR MOVE OR 'S' FO 
R SHCMDTa " S PRINT 

1240 PRINT "IF YOU DECIDE TO MOVE, YOU C 
AN DO SO IN" 

1250 PRINT "ANY OF THE FOUR COMPASS DIRE 
CTIONS. WHEN"; 

1260 PRINT "ASKED WHICH WAY, ENTER 'N' F 
OR NORTH, 'S'"; 

1270 PRINT "FOR SOUTH, 'W' FOR WEST, OR ' 
E' FOR EAST." 

1280 GOSUB 1800:G0SUB 1900 

1290 PRINT "IF YOU DECIDE TO SHOOT, YOU 

WILL BE" 

1300 PRINT "ASKED 'SHOOT WHICH WAY?', AN 
D YOU MUST" 

1310 PRINT "REPLY: 'N' FOR NORTH, 'S' FO 
R SOUTH," 

1320 PRINT "'E' FOR EAST, 'W' FOR WEST." 
: PRINT 

1330 PRINT "IF YOU HIT THE 6RUE, YOU WIL 
L BE TOLD," 

1340 PRINT "AND YOU MUST TRY TO EXIT THE 

CAVE. ": PRINT 
1350 PRINT "BUT. ..THERE ARE OTHER THINGS 

IN THE" 

1360 PRINT "CAVES. THERE ARE GIANT BATS 
THAT WILL" 

1370 PRINT "PICK YOU UP AND DROP YOU ELS 
EWHERE. " 

1380 GOSUB 1800: GOSUB 1900 

1390 PRINT "THERE ARE BOTTOMLESS PITS. 

IF YOU FALL" 

1400 PRINT "INTO ONE OF THESE YOU'LL NEV 
ER GET OUT!": PRINT 

1410 PRINT "OF COURSE THERE IS THE GRUE 
HIMSELF. " 

1420 PRINT "THOUGH NOT AN AGGRESIVE CREA 
TURE HE" 

1430* PRINT "WILL EAT YOU IF YOU COME TOO 

CLOSE. ": PRINT 
1440 PRINT "THERE ARE ALSO QUAKES THAT M 
OVE THINGS" 

1450 PRINT "AROUND IN THE CAVES (BATS, P 
ITS " 

1460 PRINT "THE GRUE, AND THE EXIT!)" 
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1800 PRINT LEFT*<VT*,24); "PRESS tRVS 0N> 
RETURNCRVS OFF> WHEN READY TO CONTINUE: 
tRVS ON> " 

1810 6ET AN«:IF Mt*="" THEN 1810 
1890 RETURN 

1900 PRINT ••tCLR><WHT}CCSD>{CSD>"?TAB(ll 
);"««* 6RUE STEW *««": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM »»* SETUP **« 
2020 : 

2030 60SUB 1900 

2040 DIM R0«(20>,TR(20,4> 

2050 FOR I>1 TO 20: READ A«,B«:RO«(I>bA«-<- 

" " -i-Bt : hEXT 

2100 DATA YOU ARE IN A SMALL ROOM WITH R 
OCKS AND DEBRIS SCATTERED EVERYWHERE. 
2105 DATA 

2110 DATA DUCK YOUR HEAD IN HERE; AS LAR 

6E ROCK STALACTITES HANS FROM THE 

2115 DATA CEILING. 

2120 DATA THE ROOM HERE SLOPES 

2125 DATA DOWNWARD. 

2130 DATA THIS ROOM IS VERY SMALL; BUT I 

THINK WE CAN MAKE IT THROUGH OK. 
2135 DATA 

2140 DATA THIS IS A VERY LARGE ROOM WITH 

A LARGE BOULDER IN THE CENTER OF IT. 
2145 DATA 

2150 DATA THIS IS THE CENTER OF A NARROW 

PASSAGE THAT CONNECTS OTHER ROOMS. 
2155 DATA 

2160 DATA THIS PASSAGE IS VERY LOW; BUT 
IF WE CRAWL WE CAN MAKE IT. 

2165 DATA 

2170 DATA THIS IS A VERY DIRTY ROOM; IT 

WAS PARTIALLY FILLED IN BY THE 

2175 DATA LAST EARTH- QUAKE THAT HIT. 

2180 DATA THIS ROOM IS ABOUT AVERAGE SIZ 

E; but IS FILLED WITH A PUNGENT AROMA 

2185 DATA THAT IS VERYNAUSEATING. 

2190 DATA YOU ARE IN A SMALL 

2195 DATA PASSAGEWAY. 

2200 DATA YOU ARE IN A SMALL 

2205 DATA PASSAGEWAY. 

2210 DATA YOU ARE IN A SMALL 

2215 DATA PASSAGEWAY. 

2220 DATA YOU ARE IN A SMALL 

2225 DATA PASSAGEWAY. 

2230 DATA YOU ARE IN A SMALL 
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2235 DATA PASSAGEWAY. 

2240 DATA YOU ARE IN A SMALL 

2245 DATA PASSAGEWAY. 

2250 DATA A SMALL HOLE IN THE CEILING LE 
TS LIGHT FROM OUTSIDE THROUGH ... 
2255 DATA BUT YOU WOULD NEVER FIT THROU 
6H IT. 

2260 DATA SOMEONE HAS LEFT A LIGHTED TOR 
CH ON THE WALL AND IT ILLUMINATES YOUR 
2265 DATA PASSAGE. 

A RIVULET OF WATER SLOWLY TRIG 
A HOLE IN THE WALL. 



2270 DATA 
KLE8 FROM 



2275 DATA 

2280 DATA A SMALL HOLE TO YOUR LEFT ATTR 
ACTS YOUR ATTENTION; BUT IT IS TOO 
2205 DATA SMALL TO BE OF ANY CONCERN. 
2290 DATA YOU ARE IN A LOW DEPRESSION IN 

THE CENTER OF A MEDIUM-SIZED 

2295 DATA ROOM. 

2700 DEF FNR(X)«INT(RND(l>*X)-<-l 
2710 FOR 1=1 TO 20:F=0 
2720 FOR J>1 TO 4 

2730 IF FNR(3>»2 OR TR(I,J> THEN 2770 

2740 R0»FNR(20):IF RO^I THEN 2730 

2750 DI«FNR(4>:IF TR(RO,DI) THEN 2730 

2760 TR(I, J)«RO:TR(RO,DI)"I 

2770 F=F+TR(I,J) 

2780 NEXT: IF F-0 THEN 2720 

2790 NEXT 

2800 Y0"FNR(20) 

2900 GU«FNR(20):IF 8F THEN 6U>— 1 
2910 EX»FNR(20) 
2920 B1«FNR(20> 
2930 B2»FNR(20) 
2940 P1=FNR<20) 
2950 P2»FNR(20) 
2990 RETURN 
3000 : 

3010 REM *** PLAY »«* 
3020 : 

3030 PRINT: PRINT RO«(YO) 
3040 FOR I»l TO 4:C0»TR(Y0, I) 
3050 IF CO»EX THEN 60SUB 60300: PRINT "EX 
IT NEARBY..." 

3060 IF CObQU then GOSUB 60300: PRINT "I 
SMELL THE 8RUE! ! !" 

3070 IF C0»B1 OR C0=B2 THEN GOSUB 60300: 
PRINT "FLAP. . . FLAP. . . FLAP. . . " 
3080 IF C0«P1 OR C0»P2 THEN GOSUB 60300: 
PRINT "I FEEL A DRAFT!!!" 
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3090 NEXT 

3100 if fnr(15>»4 then gosub 60300: print 

"«<earthquake>»":go^b 2900: goto 3000 

3300 print: an*="": input "move or shoot"; 

an«: an««left« < an«, 1 ) 

3310 if an«="m" then 3400 

3320 if an«»"s" then 3500 

3330 print "enter 'm' or 's'":goto 3300 

3400 print: an*= input "move which way" 

;an«: gosub 3900: if i»0 then 3400 

3410 if tr(yo, i>"0 then gosub 60300:prin 

t "you cannot go that way...": goto 3000 

3420 PRINT "0K...":Y0»TR<Y0,I) 

3430 IF YO«EX THEN WL«0:GOTO 3990 

3440 IF YO-GU THEN WL»l:GOTO 3990 

3450 IF Y0=P1 OR Y0»P2 THEN WL-2:G0T0 39 

90 

3460 if yoobl and y0ob2 then 3000 

3470 print "bats have you now! ! ! ":print 

"they're lifting you up!!!" 

34g0 print "ohhhhh, where are we now???" 

:yo"FNR(20):goto 3000 

3500 print: an*="": input "shoot which way 

"san«: gosub 3900: if 1=0 then 3500 

3510 if tr<yo, i) then 3540 

3520 gosub 60300: print "clunk!" 

3530 print "the arrow bounced off the wa 

ll":goto 3000 

3540 IF TR(Y0,I)<>6U THEN 35S0 
3550 GOSUB 60300: PRINT "OUCH!!!" 
3560 PRINT "YOU BAGGED A GRUE! ! !" 

3570 print "now to find the way out...": 

gf=i:gu»-i:goto 3000 

3580 gosub 60300: pr i nt "the arrow missed 

THE GRUE! ! !":G0T0 3000 
3900 AN»=LEFT*(AN*, 1):I»0 
3910 IF AN»="N" THEN 1=1 
3920 IF AN*="E" THEN 1=2 
3930 IF AN*="S" THEN 1=3 
3940 IF AN*="W" THEN 1=4 

3950 IF 1=0 THEN PRINT "ENTER 'N', 'S', 
'E' OR 'W'" 
3990 RETURN 
4000 : 

4010 REM *** END *** 
4020 : 

4030 IF WL OR eF=0 THEN 4070 

4040 PRINT "YOU HAVE REACHED THE EXIT WI 

TH YOUR" 

4050 PRINT "GRUE!!! YOUR SUPPER WILL BE 
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FILLING" 

4060 PRINT "TONIGHT FOR SURE !!!": GOTO 49 
90 

4070 IF WL THEN 4100 

4080 PRINT "YOU HAVE REACHED THE EXIT WI 
THOUT ANY" 

4090 PRINT "6RUE! ! ! YOU ARE SURE TO STA 
RVE. ..":G0T0 4990 
4100 IF WL«2 THEN 4130 

4110 PRINT "YOU BUMPED INTO THE 6RUE! ! ! 

HE ATE YOU" 
4120 PRINT "BEFORE YOU COULD MOVE !!":G0 
TO 4990 

4130 PRINT "YOU FELL INTO A PIT ! ! ! YOU 
FELL A" 

4140 PRINT "LOOOOOONG WAY..." 
4990 RETURN 
60300 : 

60310 REM BELL SOUND ROUTINE 

60320 : 

60330 SDs54272:P0KE SD-i-24, 15 
60340 POKE SD+5,7:P0KE SD-(-6,0 
60350 POKE SO-i- 1,90: POKE SD-i-4,33 
60360 FOR TS=1 TO 100:ivHEXT 
60370 POKE SD-i-4,0:P0KE SD+1,0 
60390 RETURN 
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A clever premise overshadows an interesting game. The IRSman serves as an 
excellent mathematical teaching device, while being entertaining and 
challenging. Everyone wants to beat the IRS, now here's your chance! To 
play, choose a number (we'll call it "X"), and the digits 1 through X will 
appear. Each time you remove a number from the list, all of the factors of 
that number (which are still on the list) go to the IRSman. The object is to 
garner as much money as possible, while being as stingy as possible with the 
IRSman. If you play the number 12, 1-2-3-4-5-6-7-8-9-10-1 1-12 will appear 
on the screen. If you begin play by selecting 12, the IRSman will get 6, 2, 4, 
3, and 1 (6 X 2 = 12, 4 X 3 = 12, 1 X 12 = 12) for a score of 16 to your 12. 
The board will now look like this: 11 10 9 8 7 5. As you will note, the only 
remaining number on the list which has a factor is 10 (the remaining factor 
is 5). Remember, to remove a dollar amount (a number) from the list, there 
must be a factor to go to the IRSman. When you remove 10 from the above 
example, the score will be 22 (12 -I- 10) for you, and 56(21-1-11-1-9 + 8-1-7) 
for the IRSman. If you choose 6 before choosing 12, the IRSman scores for 
3 X 2 = 6, (5 dollars) and 1X6(1 dollar) for a total of 6 dollars for him and 6 
dollars for you. The digits may only be used once, so 6, 3, 2, and 1 are 
removed from the list. Now when you choose 12, the IRSman only gets 4 
dollars (4X3=12). Now the score is 18 (12 -I- 6) for you, and 10 (6 -H 4) for 
the IRSman. Note that 1 1 is stuck because the only factors of 1 1 are 1 1 and 
1. Don't waste the universal factor (1) on just any number. It should be used 
first to remove the highest prime number from the list. A prime number is 
one that is only divisible by itself and 1. Examples are 1,2, 3, 5, 7, 11,13, 
17, 19, 23, etc. To circumvent the loss of 11, choose this number before 
choosing 6. There are many ways to thwart the IRSman, but you must really 
try. Remember that all unused numbers are added to the score of the 
IRSman at the end of the game. The maximum score you can achieve when 
choosing 1 through 12 is 48. 
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10 REM »**»*»«*»»**•*»***** 

11 ittt* 

12 REM »** IRSMAN *** 

13 REM 

14 REM 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 
90 END 
1000 : 

1010 REM *** INSTRUCTIONS *»* 
1020 : 

1030 POKE 532S0,6:P0KE 53281,6 

1040 Vrr«-" {HOME> {CSO> {CSD> <CSD> {CSO> {CSD 

> <CSD> <CSD> <CSD> CCSD> ^CSD> tCSDJ CCSD> €CSD 

> €CSD> {CSD> {CSD> <CSD> {CSD> <CSD> <:CSD> CCSD 
> {CSD> {CSD> <CSD> " 

1050 GOSUB 1900 

1060 PRINT "THIS IS THE GAME OF IRSMAN. 
to WIN, YOU" 

1070 PRINT "TRY TO ACCUMULATE MORE MONEY 

THAN YOUR" 
1080 PRINT "NEMESIS, THE IRSMAN. ": PRINT 
1090 PRINT "GIVE ME A NUMBER BETWEEN 1 A 
ND 50." 

1100 PRINT "I WILL DISPLAY A CONSECUTIVE 
NUMBER" 

1110 PRINT "STRING STARTING AT 1, AND CO 
NTINUIN6" 

1120 PRINT "THROUGH TO THE NUMBER YOU SE 
LECTED. " 

1130 PRINT "YOU WILL THEN CHOOSE HOW MUC 
H MONEY" 

1140 PRINT "(WHICH NUMBER) YOU WANT TO R 
EMOVE FROM" 

1150 PRINT "THE LIST.": PRINT 

1160 GOSUB ISOO: GOSUB 1900 

1170 PRINT "BUT, AND HERE'S THE FUN PART 

, THE IRSMAN"; 

IISO PRINT "GETS ALL OF THE REMAINING NU 
MBERS ON THE"; 

1190 PRINT "LIST THAT ARE FACTORS OF THE 

NUMBER YOU" 
1200 PRINT "CHOSE. THAT IS HOW THE IRSMA 
N GETS HIS" 
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1210 PRINT "MONEY. IF YOU CHOOSE 6, FOR 
EXAMPLE, " 

1220 PRINT "THE IRSMAN GETS ALL OF THE R 
EMAINING" 

1230 PRINT "FACTORS OF 6, POTENTIALLY 1, 

2, AND 3.": PRINT 
1240 PRINT "YOU CANNOT CHOOSE A NUMBER T 
HAT HAS NO" 

1250 PRINT "REMAINING FACTORS IN THE LIS 
T, BECAUSE" 

1260 PRINT "YOU MUST ALWAYS PAY THE IRSM 
AN. ": PRINT 

1270 60SUB IGOOZGOSUB 1900 

12S0 PRINT "WHEN YOU CAN NO LONGER REMOV 

E ANY OF THE"; 

1290 PRINT "REMAINING NUMBERS FROM THE L 
1ST, THE" 

1300 PRINT "IRSMAN CLAIMS ALL OF THE UNU 
SED MONEY" 

1310 PRINT "(NUMBERS) FOR HIMSELF." 
1800 PRINT LEFT«(VT«, 24); "PRESS {RVS 0N> 
RETURNtRVS OFF> WHEN READY TO CONTINUE: 
tRVS ONJ " 

1810 GET AN«:IF AN««"" THEN 1610 
1890 RETURN 

1900 PRINT "{CLR>CWHT>{CSD>{CSD>";TAB(13 
);"«** IRSMAN ***": PRINT: PRINT 
1990 RETURN 

2000 : 

2010 REM *** SETUP «** 
2020 : 

2030 DIM LI (50) 

2040 FOR I»l TO 50:LI (I)«I:NEXT 

2050 INPUT "{CLR><CSD>{CSD>HOW MANY NUMB 

ERS (1-50) IN THE LIST";AN« 

2060 AN«VAL(AN«):IF AN>«1 AND AN<-50 AND 

ANOINT (AN) THEN 2080 
2070 ER»="«< USE A NUMBER FROM 1 TO 50 
»>":G0SUB 3700: goto 2050 
2080 NUaAN 
2990 RETURN 
3000 : 

3010 REM **» PLAY *»* 
3020 : 

3030 60SUB 1900 
3040 PRINT LEFT*(VT*,5) 
3050 PRINT "HERE IS THE LIST:":PRINT 
3060 FOR I>1 TO NU 
3070 IF LI(I)-0 THEN PRINT " "; 
3080 IF LKIXIO THEN PRINT " "; 
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3090 IF LI (I) THEN PRINT I; 
3100 NEXT I 

3110 IF NU=1 THEN 3900 

3120 FOR 1=2 TO NU: IF LI(I)=0 THEN 3600 
3130 FOR J=l TO I: IF LI(J)=0 THEN 3500 
3140 IF J=I THEN 3500 

3150 IF LI<I)/J<>INT<LI(I)/J) THEN 3500 
3160 PRINT LEFT*<VT», 13) 

3170 PRINT "THE SCORE IS: IRSMAN:";TA 

3180 PRINT " »you*:";yo 

3190 AN»="": PRINT LEFT* <VT*, 16) : INPUT "W 

HIGH DO YOU WANT";AN«:AN»VAL(AN«) 

3200 IF AN<1 OR AN>NU THEN 3220 

3210 IF LI (AN) AND AN>INT(AN) THEN 3230 

3220 ER«»"THAT IS NOT AVAILABLE! ":GOSUB 

3700: GOTO 3190 

3230 SC«0:IF AN=1 THEN 3280 

3240 FOR K=l TO AN: IF LI<K)»0 THEN 3270 

3250 IF K=AN THEN 3270 

3260 IF AN/K=INT(AN/K) THEN SC«SC+K 

3270 NEXT K 

3280 IF SCOO THEN 3310 

3290 ER*="THAT LEAVES NOTHING FOR THE IR 
SMAN. " 

3300 ER«="YOU CAN'T HAVE IT. 

"-i£R«:GOSUB 3700: goto 3190 
3310 LI (AN) =o: yo=yo+an: TA=TA+SC 
3320 FOR K=l TO AN: IF LI(K)=0 THEN 3340 
3330 IF AN/K-INT (AN/K) THEN LI(K)=0 
3340 NEXT K 
Z^SO GOTO 3040 
3500 NEXT J 
3600 NEXT I: GOTO 3990 
3700 GOSUB 60300 
3710 PRINT LEFT*(VT*,20);ER* 
3720 FOR K=l TO 1600: NEXT 

3730 PRINT LEFT* (VT*,20);: FOR K=l TO LEN 
(ER*): PRINT " ";:NEXT 
3790 RETURN 

3900 PRINT "{CSD><CSD>OOOOPS, YOU CAN'T 
GET ANYTHING. ..":TAs1:LI(1)«0:GOSUB IGOO 
3990 RETURN 
4000 : 

4010 REM *** END *»* 
4020 : 

4025 GOSUB 1900 

4030 PRINT "*** THE GAME IS OVER ***" 
4040 PRINT 

4050 TA«0:FOR I»l TO NU:TA"TA+I:NEXT:TA= 
TA-YO 
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4060 PRINT "THE IRSMAN:";TA 
4070 PRINT " Y0U:";Y0 

4080 PRINT "—ssssssssssssa 



: PRINT 



4090 IF TA>YO THEN PRINT "THE IRSMAN IS 
THE WINNER ! ! ! " 

4100 IF TA<YO THEN PRINT "YQU HAVE BEATE 
N THE IRSMAN! ! !" 

4110 IF TA-YO THEN PRINT "IT'S UNBELIEVA 
BLE BUT IT'S A TIE! ! !" 

4120 GOSUB 60300: GOSUB 60300: (^SUB 60300 
4990 RETURN 
60300 : 

60310 REM BELL SOUND ROUTINE 
60320 : 

60330 SDs54272:P0KE SO-i-24, 15 
60340 POKE SD+5,7:P0KE SD+6,0 
60350 POKE SD+ 1,50: POKE SO+4, 17 
60360 FOR TS=1 TO 100:NEXT 
60370 POKE SD+4,0:P0KE SO+1,0 
60390 RETURN 
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This game is designed to test your leadership ability. You are given a ten 
year reign, during which you try to guide your kingdom towards health and 
prosperity. There are certain conditions which are beyond your control, such 
as the success of the harvest, plagues, or damage by rats. Try to do the best 
job possible. When the price of acreage is high, (25 or 26 bushels per acre), 
you may choose to become a land broker instead of a gentleman farmer. 
That is, you may sell all but one acre of land (you must keep 1), and hope 
the price of land drops the following year. If the price of land drops by 4 
bushels (say, from 26 to 22), you have, in effect made a 4 bushel per acre 
profit. When the price of land is low, (below 20 bushels an acre), it is 
recommended that you buy as much land as possible, while retaining enough 
grain to feed your people and sow your fields. You can easily understand the 
program by manipulating the beginning values of the variables in line 2010. 



/ 
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10 REM ««***•««*»*****»«*» 

11 REM •** *•» 

12 REM «*» KINGDOM *** 

13 REM **♦ *** 

14 REM ***««*««******«**«« 
20 60SUB 1000:REM INSTS 




30 GOSUB 2000: REM SETUP 
40 GOSUB 30<K>:r^M PLAY! 
50 GOSUB 4000: REM END 



60 END ^ 

1000 : 

1001 REM *** INSTS 

1002 : 

1010 POKE 53280,0: POKE 53281,0: PRINT" <CL 
R>{WHT>"; 

1015 VT«B " <:H(mE> {CSD> {CSD> {CSD> <C8D> { CSD 
> {CSD> {CSD> {C8D> {CSD> {CSD> CCSD) {CSD> {CSD 

> <CSD> CCSD> {CSD> {CSD> {CSD> {C8D> {CSD> {CSD 

> <CSD> <CSD> <CSD> " 

1020 PRINT LEFT*<VT«,3);TAB(12)J"»** KIN 
GDOM ***" 

1030 PRINT LEFT«<VT*,6) 

1040 PRINT "THIS IS A SIMULATION OF THE 
COUNTRY OF" 

1050 PRINT "SUMERIA. YOU ARE THE SOVERE 
IGN RULER" 

1060 PRINT "AND YOU WILL GOVERN FOR TEN 
YEARS. " 

1070 PRINT : PRINT "THE DECISIONS THAT Y 
OU MAKE WILL AFFECT" 

1080 PRINT "THE LIVES OF HUNDREDS OF PEO 
PLE. YOUR" 

1090 PRINT "DICTATORIAL SKILLS WILL BE R 
ATED ONCE" 

1100 PRINT "YOUR REIGN HAS ENDED." 

1110 PRINT : PRINT "YOU WILL BE ASKED TO 

MAKE SEVERAL KEY" 
1120 PRINT "DECISIONS EACH YEAR. EACH OF 

THESE" 

1130 PRINT "WILL BE EXPLAINED TO YOU." 
1140 PRINT LEFT* (VT*, 23) 
1150 PRINT "PRESS ANY KEY TO CONTINUE" 
1160 GET ANS«:IF ANS»="" THEN 1160 
1990 RETURN 

2000 : 

2001 REM *** SETUP 
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2002 : 

2010 P»95: S=2800: H«3000: EsH-S: Y«3: a-h/y: 
laS- Daro: z»0: Q=l 

2020 DIM NUSdl): FOR J=l TO 11: READ NU 

«(J>:next 

2030 data f i rst, second, third, fourth, f i ft 

H,SIXTH 

2040 DATA SEVENTH, EIGHTH, NINTH, TENTH, ELE 
VENTH 

2990 RETURN 

3000 : 

3001 REM »** PLAY! 

3002 : 

3005 PRINT "<:CLR>";LEFT*(VT«,3>;TAB(12}; 
"»** KINGDOM ***";LEFT«(VT«,6> 
3010 ZsZ+l: PRINT: PRINT "HAMURABI, I BEG 
TO REPORT TO YOU:" 

3020 PRINT "IN THE "NU*<Z)" YEAR, "D'-PEOP 
LE STARVED." 

3030 PRINT "A TOTAL OF" I "CAME TO THE CIT 
Y. " 

3100 p«=p+i:iF Qbo then p=int<p/2): print: 

PRINT" A HORRIBLE PLAGUE STRUCK! HALF "S 
3110 IF Q«0 THEN PRINT "OF YOUR PEOPLE P 
ERISHED. " 
3120 PRINT 

3130 print "the population is"p" 

3131 print "the city owns"a"acres. ":prin 
t"you harvested" y"bushels per acre." 
3232 print "rats ate a total of"e"bushel 
S":print"you have"S"bushels in reserve." 

32SO IF Z=ll THEN RETURN 
3400 C»INT(RND(l>*10}:YaC-i-17 

3410 PRINT: PRINT"LAND IS TRADING AT"Y"BU 
SHELS PER ACRE." 

3411 INPUT"HOW MANY ACRES DO YOU WISH TO 
BUY";Q 

3420 IF Q<0 THEN PRINT "HAMURABI, YOU CA 
NNOT DO THAT. IF YOU WISH TO SELL "; 

3421 IF Q<0 THEN PRINT "LAND, BUY O ACRE 
S FIRST. ":G0T0 3410 

3425 IF Y*QsS THEN PRINT"SIR, KEEP AT LE 
AST ONE BUSHEL TO PLANT. ": GOTO 3410 

3430 IF Y*Q>S THEN PR I NT "HAMURABI, THINK 
AGAIN! YOU ONLY HAVE" 

3431 IF Y«Q>S THEN PRINT S"BUSHELS OF GR 
AIN.":GOTO 3410 

3450 IF Q>0 THEN AsA-t-Q:SBS-Y«Q:CBO:GOTO 
3500 

3460 PRINT: INPUT"HOW MANY ACRES WOULD YO 
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u sell";q 

3465 IF Q<0 THEN PRINT"HAriURABI, YDU CAN 
NOT DO THAT. IF YOU" 

3466 if q<0 then print"don't want to sel 
l, enter o acres.": goto 3460 

3468 if a-q=0 then pr i nt "you must keep a 
t least one acre of land": goto 3460 
3490 a=a-q:s=s+y»q:c=o 

3500 print: PRINT"OF THE"S"BUSHELS REMAIN 
IN6, HOW MANY" 

3501 INPUT "DO YOU WISH TO FEED YOUR PEOP 
LE";Q 

3502 IF S-Q=0 THEN PRINT "SIR, KEEP AT LE 
AST ONE BUSHEL TO PLANT": GOTO 3500 

3505 IF Q<1 THEN PRINT:PRINT"HAMURABI, T 
HE PEOPLE WILL STARVE!!" 

3506 IF Q<1 THEN PRINT" YOU MUST FEED THE 
M SOMETHING. ": GOTO 3500 

3510 IF Q>S THEN PRINT"HAMURABI, YOU ONL 
Y OWN" S" BUSHELS. ..": GOTO 3500 

3520 s=s-q:c=i 

3525 PRINT: PRINT" YOU NOW HAVE" S" BUSHELS" 

3530 print: PRINT"OF THE"A"ACRES YOU OWN, 
HOW MANY" 

3531 PRINT"DO YOU WISH TO PLANT WITH SEE 
D?" 

3532 INPUT" (PLANT 2 ACRES WITH ONE BUSHE 
L)";D 

3535 IF D<1 THEN PRINT:PRINT"HAMURABI, Y 
OU MUST PLANT SOMETHING SO" 

3536 IF D<1 THEN PR I NT "THERE WILL BE FOO 
D FOR NEXT YEAR": GOTO 3530 

3540 IF D>A THEN PRINT "SIR, YOU ONLY HA 
VE"A"ACRES. " : GOTO 3530 

3550 IF D>10«P THEN PRINT"SIR, ONE PERSO 
N CAN OhH-Y WORK TEN ACRES" 

3551 IF D>10*P THEN PRINT"YOUR POPULATIO 
N OF"P"IS NOT BIG ENOUGH. ": GOTO 3530 
3553 IF D/2>S THEN PRINT"HAMURABI, THAT 
IS TOO MUCH TO PLANT": GOTO 3530 

3555 S=S-INT <D/2) : C=INT (RND ( 1 ) *5) +1 
3600 Y=C: H=D»Y: E=0: C=INT (RND ( 1 ) *5) +1 : IF 
INT(C/2)*2=C THEN E=INT<S/C) 

3610 s=s-e+h: C=INT <RND ( 1 ) *5) +1 : I=INT (C* ( 
20»A+S) /P/ 100+1 ) :C=INT<Q/20) 

3611 Q=INT<10*<2*RND(1)-.3)):IF P<C THEN 
D=0:GOTO 3010 

3615 D=P-C:IF D>.5*P THEN 3630 

3620 Pl»( (Z-1)*P1+D»100/P)/Z:P»C:D1=D1+D 

:goto 3010 
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3630 PRINT: PR I NT "YOU STARVED "D"PEOPLE IN 
ONE YEAR! ! " 

3631 PRINT"YOU HAVE DONE SUCH A MISERABL 
E JOB THAT" 

3632 PR I NT "YOU HAVE BEEN OVERTHROWN AND 
DEPOSED!" 

3633 WL=l: RETURN 

4000 : 

4001 REM *** END 

4002 : 

4005 IF WL THEN RETURN: REM ENDS PROGRAM 
IF RULER WAS DEPOSED 

401O PRINT: PRINT" IN YOUR TEN YEARS OF RU 
LE, "Pl"?i" 

4020 PRINT"OF THE POPULATION STARVED PER 

YEAR, ON THE AVERAGE." 
4030 PRINT"A TOTAL 0F"D1 "PEOPLE DIED.":L 
»=A/P 

4040 PRINT 

4050 PRINT"YOU STARTED WITH 10 ACRES PER 
PERSON" 

4060 PRINT"AND ENDED WITH"L"ACRES" 

4061 PR I NT "PER PERSON." 

4070 IF Pl>33 OR L<7 THEN PR I NT "YOU ARE 
A DISGRACE! THE PEOPLE HAVE" 

4071 IF Pl>33 OR L<7 THEN PRINT"EXILED Y 
OU TO A REMOTE ISLAND. ": RETURN 

4080 IF Pl>10 OR L<9 THEN PRINT" YOU RULE 
LIKE THE AYATOLLAH! MOST OF" 

4081 IF Pl>10 OR L<9THEN PR I NT "YOUR SUB J 
ECTS WOULD DANCE ON YOUR GRAVE. ": RETURN 

4090 IF Pl>3 OR L<10 THEN PRINT" YOU COUL 
D HAVE DONE BETTER. "INT(P«.8*RND(1) ) 

4091 IF Pl>3 OR L<10 THEN PRINT"PEOPLE W 
OULD LOVE TO ASSASSINATE YOU!":RETURN 

4095 PR I NT "A GREAT JOB! ! YOU CAN RULE MY 
COUNTRY" 

4096 PRINT"ANYTIME YOU WANT !!!": RETURN 
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This game can be frustrating, challenging, and exciting all at the same time. 
You are given a list of integers, which you must unscramble using a reversing 
technique. The list is DIMensioned by line 2030, and values are put into 
LI(1) through LI(9) in line 2040 using a FOR/NEXT loop. LI(1) becomes 1, 
LI(2) becomes 2, etc. Line 2050 assigns the random order to the list. Line 
3050 does the reversing of the numbers that you select as ANS in line 3040. 
These Unes have several commands grouped together for speed of operation. 
If you want to dissect them, it is best to rewrite the line as separate statements, 
You can also print out the variables: 

3050 MDL = INT ((9 - ANS)/2J 

3051 PRINT "MDL IN LINE 3051 ="; MDL 

3052 FOR I = ANS TO ANS + MDL 

3053 PRINT"I=":I;" ANS + MDL="; ANS + MDL 

3054 T= LI(IJ 

3055 PRINT ■T="; T 

3056 LI[IJ= Ll(9 + ANS- IJ 

3057 PRINT "Ll(l) ="; LI(IJ 

3058 LI(9 + ANS-I) = T 

3059 PRINT 'T="; T: NEXT 



This "expanded" version of line 3050 will let you watch the program pass 
the variables using "T" as a temporary storage location. Practically all the 
action takes place in this one line. When you run this revised program, print 
statements will tell you what happens each time you make a reversal. The 
reason for combining multiple statements on a single line is execution speed. 
When you are developing programs, you should have every statement on a 
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separate line. Once you have the program running you should make two 
versions. Make a long version with lots of REMs and descriptive variable 
name, and a short version with combined lines. This will help you modify 
the program later on. Your own program that you knew by heart a few 
weeks ago can become a complete mystery if you don't spend enough time 
on REMs and organization. 



«***«**«*****«**««*« 



*** 



REVERSER 



10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

20 60SUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 
60 END 
1000 : 

1010 REM **« INSTRUCTIONS 
1020 : 

1030 POKE 53200, 6: POKE 53281,6 

1 040 VT«» " {HOME> {CSD> CCSD> {CSD> {CSD> {CSD 

> {CSD> {CSD> {CSD> {CSD> {CSD> CCSD> <CSD> {CSD 

> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD 

> {CSD> {CSD> {CSD> " : 

1050 GOSUB 1900 

1060 PRINT "IN THIS GAME YOU ARE GIVEN A 
LIST OF" 

1070 PRINT "NUMBERS FROM O TO 9. THE LIS 
T WILL NOT" 

1080 PRINT "BE IN SEQUENCE. IT IS YOUR J 
OB TO SORT" 

1090 PRINT "THE LIST INTO ASCENDING ORDE 
Ra " Z PRINT 

1100 PRINT "YOU ARRANGE THE LIST BY REVE 
RSING THE" 

1110 PRINT "ORDER OF IT. YOU INPUT THE S 
TARTING" 
1120 PRINT 
D, AND THAT" 

1130 PRINT "COLUMN ALL THE WAY THROUGH T 
O COLUMN 9," 

1140 PRINT "WILL BE REVERSED." 

1150 GOSUB 1800: GOSUB 1900 

1160 PRINT "IF YOU HAD THIS LIST:": PRINT 

1170 PRINT "POSITIONS: 012345678 



'COLUMN THAT IS TO BE REVERSE 
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1180 PRINT ■• 

1190 PRINT " 
4": PRINT 



LIST: 019876523 



1200 PRINT "AND YOU REVERSED IT POSITION 

7, IT WOULD"; 
1210 PRINT "LOOK LIKE THIS:": PRINT 
1220 PRINT "POSITIONS: 012345678 

9" 

1230 PRINT " ~ 

1240 PRINT " LIST: 019876543 

2": PRINT 
1250 60SUB 1800:G0SUB 1900 
1260 PRINT "A FINAL REVERSAL AT POSITION 

2 WOULD" 

1270 PRINT "COMPLETE THE LIST AS THIS:": 
PRINT 

1280 PRINT "POSITIONS: 012345678 
9" 

1290 PRINT " 

_—>> 

1300 PRINT " LIST: 012345678 

9": PRINT 

1310 PRINT "YOU WIN WHEN THE LIST IS SOR 
TED IN" 

1320 PRINT "ASCENDING ORDER AS IS SHOWN 

ABOVE. ": PRINT 

1330 PRINT "GOOD LUCK • ! ! " 

1800 PRINT LEFT*(VT*,24); "PRESS €RVS 0N> 

RETURNCRVS OFF> WHEN READY TO CONTINUE: 

{RVS 0N> " 

1810 GET AN«:IF AN««""THEN 1810 
1890 RETURN 

1900 PRINT "{CLR>{WHT><CSD>{CSD>";TAB(12 
);"»** REVERSER **»": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM *** SETUP *«* 
2020 : 

2030 DIM LI(9> 

2040 for 1=0 to 9:li <i>=i:next 

2050 for 1=0 to 9:x=int(rnd(1)«10) :t=li ( 

I):li(I)=li(X):li(x>=t:next 

2990 RETURN 

3000 : 

3001 REM »*« PLAY 

3002 : 

3010 GOSUB 1900 

3020 PRINT "POSITIONS: 12 3 4 5 
6 7 8 9" 




75 



3021 PRINT " 



3022 PRINT " list:"; 

3030 FOR I»0 TO 9: PRINT LI ( I ) ; :NEXT:PRIN 
T 

3035 FOR 1=0 TO 9: IF LI(I)=I THEN NEXTZR 
ETURN 

3040 PRINT: INPUT "REVERSE AT WHICH POSIT 
ION (0-9) " ; AN»: ANsVAL ( AN«) 

3041 IF AN*<"0" OR AN*>"9" THEN PRINT "T 
YPE A NUMBER BETWEEN O AND 9": GOTO 3040 

3050 MDL=INT < (9-ANS> /2) : FORI»ANTOAN+MDL: 
T=LI ( I ) : LI ( I > »LI <9+AN-I ) : LI (9+AN-I ) =T 

3051 NEXT 

3060 M0VE»ri0VE+l:60T03010 

4000 : 

4001 REM «*« END 

4002 : 

4010 PRINT: PRINT" YOU DID IT! ":PRINT:PRIN 
T"IT TOOK YOU A TOTAL OF "MO" MOVES. " 
4020 PRINT 

4030 IF M0<11 THEN PRINT "THAT'S SUPER!! 
■I • pETUf^i^ 

4031 IF M0<14 THEN PRINT "GOOD JOB!":RET 
URN 

4032 IF M0<17 THEN PRINT "THAT WAS JUST 
SO~SOa " : RETURN 

4033 IF M0<20 THEN PRINT "NOT SO HOT.":R 
ETURN 

4034 IF M0>19 THEN PRINT "BACK TO SCHOOL 
!":RETURN 

4040 PR I NT "GOOD JOB!" 
4990 RETURN 



I 
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Schmoo 

Its whimsical name and humorous object camoflage an excellent thinking- 
man's game. It is hard to imagine how a person could play, and not come 
away with a better understanding of the Cartesian coordinate system. The 
premise is that you are trying to splat a mudball onto the mud-loving 
Schmoo. The elevation at which you aim the automatic mudball slinger 
determines how far the mudball will travel. The angle at which you shoot 
will be determined by the coordinates of the Schmoo. Below is a list of 
coordinates and the angles they represent: 



X 


Y 


ANGLE 









12588 







17866 


17866 


45 


30910 





90 


3888 


-5888 


135 





-9400 


180 


-25727 


-25727 


225 


-18992 





270 


-34101 


34101 


315 



This chart should help you to understand how various coordinates relate to 
angles and how best to aim your mudball slinger. 

V J 
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lO 


REM « 




11 


REM »♦* 


12 


REM « 


!•»* 


13 


REM « 


h** 


14 


REM 4 




15 


REM 




16 


REM 




20 


GOSUB 


1000 


30 


60SUB 


2000 


40 


GOSUB 


3000 


50 


GOSUB 


4000 


60 


END 





SCHMOO *** 



1000 : 

1010 REM *«* INSTRUCTIONS *** 
1020 : 

1030 VT«a" CHC»1E> {CSD> {CSD> {CSD> {CSD> <CSD 

> {CSD> {CSD> {CSD> {CSD> CCSD) {CSD> <CSD} <CSD 

> {CSD> {C8D> {CSO> {CSD> {CSO> CCSD> {CSO> {CSD 

> {CSD> {CSD> {CSD> " 

1040 POKE 53280, 6: POKE 53281,6 

1050 GOSUB 1900 

1060 PRINT "THIS IS THE BAME OF SCHMOO. 
IN IT YOU" 

1070 PRINT "THROW MUD AROUND IN HOPES OF 
HITTING" 

1080 PRINT "THE MUDH-OVING SCHMOO. ":PRIN 
T 

1090 PRINT "YOU ARE SITUATED IN THE CENT 
ER OF AN" 

1100 PRINT "X,Y COORDINATE SYSTEM AT POS 
ITION 0,0." 

1110 PRINT "THE SCHMOO WILL BE LOCATED S 
OMEWHERE ON" 

1120 PRINT "THE SAME PLANE. HIS COORDINA 
TES ARE" 

1130 PRINT "BIVEN TO YOU BEFORE EACH TUR 
N. " * PRINT 

1140 PRINT "YOU HAVE YOUR TRUSTY AUTOMAT 
IC MUDBALL" 

1150 PRINT "SLINGER WHICH YOU USE TO TOG 
S MUDBALLS" 

1160 PRINT "AT THE SCHMOO. YOU ENTER THE 
ELEVATION" 

1170 PRINT "AND THE AN8LE AT WHICH YOU W 
ISH TO FIRE" 

1180 PRINT "THE MUDBALL. AFTER EACH SHOT 
YOU WILL" 
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1190 PRINT "BE GIVEN THE COORDINATES WHE 

RE THE MUD LANDED." 

1200 60SUB 1800:60SUB 1900 

1210 PRINT "FOR EXAMPLE, IF THE SCHMOO'8 

COORDINATES"; 
1220 PRINT "ARE (-500 , 1000 ) THEN THE 
SCHMOO IS" 

1230 PRINT "ABOUT FIVE HUNDRED FEET TO Y 
OUR LEFT AND"; 

1240 PRINT "A THOUSAND FEET IN FRONT OF 
YOU. ": PRINT 

1250 PRINT "THE ELEVATION FOR THE SHOT W 
OULD BE" 

1260 PRINT "ABOUT 89.3 DEGREES WHILE THE 

ANGLE WHERE"; 
1270 PRINT "THE SCHMOO CAN BE FOUND IS A 
BOUT 333.4" 

1280 PRINT "DEGREES. ": PRINT 

1290 PRINT "THE MUDBALLS ARE LARGE ENOUG 

H TO MUDDY" 

1300 PRINT "THE SCHMOO AS LONG AS THEY L 
AND WITHIN" 

1310 PRINT "100 FEET OF HIM. ":PRINT 
1320 PRINT "NOW THAT YOU KNOW HOW TO MAK 
E THE SCHMOO"; 

1330 PRINT "HAPPY, GO GET HIM. GOOD LUCK 

1800 PRINT LEFT«(VT«, 24); "PRESS tRVS 0N> 
RETURN {RVS OFF> WHEN READY TO CONTINUE: 
{RVS 0N> " 

1810 GET AN«:IF AN«e"" THEN 1810 
1890 RETURN 

1900 PRINT "<CLR>{WHT>{CSD>{CSD>";TAB(12 
);"*»» SCHMOO *•*": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM *** SET UP 
2020 : 

2030 PRINT "<CLR>" 

2040 S1-INT(RND(1)*2)*2-1 

2050 S2«INT(RND(1}*2}«2-1 

2060 SX»(INT(RND(l)*26000)-i-5000)«Sl 

2070 SYb ( INT (RND ( 1 > *26000) -t-SOOO) «S2 

2080 CN»3. 141592635/180 

2990 RETURN 

3000 : 

3010 REM »** PLAY *** 
3020 : 

3030 GOSUB 1900 
3040 GOSUB 60300 

3045 PRINT: PRINT "THE SCHMOO IS AT COORD 
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INATES: " : PRINT " ( " 5 SX f " , " J SYS " ) " 

3050 PRINT: PRINT "WHAT ELEVATION FOR THE 

MUDBALL": INPUT "SLINGER < 1-90)"; EL 
3060 IF EL<1 OR EL>90 THEN PRINT "ELEVAT 
ION RANBES FROM 1 TO 90.": GOTO 3050 
3070 IF EL<90 THEN 3100 

3080 PRINT "THAT WOULD SHOOT THE MUD STR 
AIGHT UP" 

3090 PRINT "AND IT WCHJLD LAND ON TOP OF 
YOU. ": GOTO 3050 

3100 print: PRINT "WHAT ANGLE OF DIRECTIO 
N FOR THE" 

31 lO INPUT "MUDBALL SLINGER (0-360)"; AN 
3120 IF AN<0 OR AN>360 THEN PRINT "THE A 
NGLE RANGES FROM O TO 360. ": GOTO 3100 
3130 DM=ABS(INT(93000*SIN(EL*CN)*C0S(EL* 

CN))) 

3140 XMsDM*SIN(AN*CN) 

3150 YM»DM«C0S(M4*CN) 

3160 DS»SQR< <SX-XM) T2+(SY-YM) t2) 

3170 print: PRINT "THE MUD SPLATTERED AT 

COORDINATES: " 

3180 PRINT "(";INT<XM);",";INT(YM);")" 

3190 TRY=TRY+1 

3200 IF DS>100 THEN 3040 

3210 60SUB 60300:G0SUB 60300: GOSUB 60300 

3220 PRINT: PRINT "THAT'S GOOD ENOUGH TO 

SPLATTER THE" 

3230 PRINT "SCHMOOM!" 

3990 RETURN 

4000 : 

4010 REM ««* END *** 
4020 : 

4030 print: PRINT "YOU SPLATTED THE SCHMO 

o IN" ; try; "tries. " : print 

4040 PRINT "DO YOU WISH TO PLAY AGAIN? { 
RVS 0N> CRVS OFF>"; 
4050 GET AN«:IF AN«»"" THEN 4050 
4060 IF LEFT«(ANS«, 1)<»"Y" THEN RUN 
4070 PRINT "<CSL>N": PRINT "tCSD><CSD>THA 
NKS FOR SPLATTERING THE SCHMOO!!" 
4990 RETURN 
60300 : 

60310 REM BELL SOUND ROUTINE 
60320 : 

60330 SD»54272:P0KE SD+24, 15 
60340 POKE SD+5,7:P0KE SD+6,0 
60350 POKE SD+1,50:P0KE SD+4, 17 
60360 FOR TS»1 TO 100: NEXT 
60370 POKE SD+4,0:P0KE SD-i-1,0 
60390 RETURN 




80 




Impossible! It may seem impossible, but it's not. Deriving the key to this 
challenging game is very satisfying indeed! The object of the game is to 
transpose this list, ####.???? so that it looks like this ????.### #. 
The rules are few. The question marks (?) can only be moved to the 
left. Pound signs (#) can only be moved to the right. Either sign may be 
moved during a turn, with the following limitations. A sign may only be 
moved into the place currently occupied by the period (this space is referred 
to as the blank or empty space). A move is made by moving directly into an 
empty space or by jumping over one opposing piece into the empty space. 
To understand the function of lines in the play section, separate compound 
lines as you did for REVERSER. 



J 
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10 REM 

11 REM 

12 REM 

13 REM 



*♦* *** 
*** TRANSITION *** 



14 REM ******************** 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 GOSUB 4000 
90 END 
1000 : 

1010 REM *** INSTRUCTIONS **« 
1020 : 

1030 POKE 53280, 6: POKE 53281,6 

1040 VT«»" {HOME> {CSD> CCSD> {CSD> {CSD> CCSD 

> <CSD> {CSD> {CSD> {CSD> {CSD> {CSD> {CSD> CCSD 

> CCSD> {CSD> {CSD> <CSD> CCSD> {CSD> {C8D> <CSD 

> <CSD> {CSD> CCSD> " 
1050 GOSUB 1900 

1060 PRINT "THE GAME OF TRANSITION WILL 
PRESENT YOU" 

1070 PRINT "WITH A LIST OF NINE DIGITS. 
THE LIST" 

1080 PRINT "WILL LOOK LIKE THIS:" 
1090 PRINT LEFT«<VT»,13) J 

1100 PRINT TAB(5)5"C 12 3 4 5 6 7 

8 9 3": PRINT 
1105 PRINT TAB<5);"C # # « « - ? ? 

? ? 3" 
1110 GOSUB ISOO: GOSUB 1900 
1120 PRINT "THE CHARACTER CAN ONLY M 

OVE TO THE" 

1130 PRINT "RIGHT, AND THE CHARACTER 
CAN ONLY" 

1140 PRINT "MOVE TO THE LEFT.": PRINT 
1150 PRINT "A MOVE IS MADE BY MOVING TO 
AN EMPTY" 

1160 PRINT "SPACE, OR BY JUMPING OVER ON 
E OPPOSING" 

1170 PRINT "PIECE.": PRINT 

1180 PRINT "TO MAKE A MOVE, YOU ENTER TH 
E POSITION" 

1190 PRINT "NUMBER OF THE MOVING PIECE. 
TO QUIT," 
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1200 PRINT "ENTER ZERO (0> . " 
1800 PRINT LEFT*<VT*,24); "PRESS {RVS 0N> 
RETURN CRVS OFF} WHEN READY TO CONTINUE: 
CRVS 0N> " 

1810 SET AN«:IF AN«>"" THEN 1810 
1890 RETURN 

1900 PRINT "{CLR>{WHT>{CSD>{CSD>"f TABdl 
);•'*** TRANSITION »»*": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM ««« SETUP **« 
2020 : 

2030 DIM LI (9) 

2040 FOR 1=1 TO 4:LI (I)«l:LI (10-I)a2 
2050 NEXT:Nli=0 
2990 RETURN 
3000 : 

3010 REM »*« PLAY «** 
3020 : 

3030 60SUB 1900 

3040 PRINT left«(vt«,8);tab(5);"C";:for 
1=1 TO 9: PRINT i;:next:print "d": print 

3050 PRINT TAB(5);"C";:F0R 1=1 TO 9:PRIN 
T MID«(" . # ? ••,LI(I)«3+1,3);:NEXT 
3060 PRINT "3": print: PRINT 
3070 if LI (5) THEN 3090 

3080 WL"0:F0R 1=1 TO 4:WL=M_-i-(LI (I)=2) + < 
LI<I-i-5)=l):NEXT:lF WL<=-8 THEN 3990 

3090 PRINT TAB(ll)r'# > < ?":P 

RINT 

3100 PRINT TAB(13)S"M0VE <0-9) : <RVS 0N> 

«RVS OFF>"; 
3110 BET AN«:IF AN«<"0" OR AN*>"9" THEN 
3110 

3120 IF AN«="0" THEN WL=0:60T0 3990 

3130 AN=VAL<AN«): PRINT "{CSL>";AN« 

3140 IF LI(AN)=0 THEN ER«="THAT SPACE IS 

EMPTY. ": SOTO 3220 
3150 IF LI(AN)=1 THEN DI=1 
3160 IF LI (AN) =2 THEN DI=-1 
3170 IF AN-t-DI>9 OR AN-i-DKl THEN 3210 
3180 IF LI(AN-i-OI)=0 THEN LI (AN+DI}=LI (AN 
):60T0 3250 

3190 IF AN+DI+DKl OR AN-i-DI-i-DI>9 THEN 32 
10 

3200 IF LI(AN+DI)<>LI(AN) AND LI (AN-t-OI+0 
I)=0 THEN LI(ANH-DI-(-DI)=LI(AN):60T0 3250 
3210 ER*="IT CANNOT MOVE FURTHER." 
3220 PRINT LEFT«(VT«,18>!ER« 
3230 FOR DELAY=1 TO 800: NEXT 
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3240 PRINT LEFT*<VT»,18);:F0R J=l TO LEN 
(ER«): PRINT " ";:NEXT:60T0 3040 
3250 LI (AN>«0:l«1»NM+l:G0T0 3040 
3990 RETURN 
4000 : 

4010 REM *»* END *»* 
4020 : 

4030 PRINT LEFT*(VT*,18);"THE SAME IS OV 

ER! ! !":PRINT 

4040 IF WL THEN 4070 

4050 PRINT "YOU BOT STUCK AFTER"! NM J "MOV 
ES.": PRINT "BETTER LUCK NEXT TIME! 
4060 GOTO 4990 

4070 PRINT "YOU DID IT!!!":PRINT "AND IT 

ONLY TOOK YOU" ;NM; "MOVES." 
4990 RETURN 
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In this game the object is to avoid the relentless pursuit of the horrible 
Twinky, and to escape from the danger-filled labyrinth. There are a plethora 
of obstacles which impede your escape. There are twenty squares which 
relocate you somewhere in the maze. There are twenty squares which cannot 
be entered. There is one square which contains an extremely sensitive 
exploding device. If you move onto this space, the ensuing blast will end 
your perilous journey . . . and your life. In the interest of fair play, you are 
given a zap gun which will temporarily ward off the Twinky's advance. But 
don't count on the gun too much or you'll never make it out alive. 
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10 REH 

11 REM 

12 REM 

13 REM 




14 REM »»*»«»*»***«»»*****»* 

15 REM 

16 REM 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
90 END 
1000 : 

1010 REM *** INSTRUCTIONS **« 
1020 : 

1030 POKE 532S0,6:P0KE 53201,6 

1040 VT*=" €HOME> <CSO> {CSD> <CSD> €CSD> tCSD 

> {CSD> {CSD> <CSD> {CSD> {CSD> {CSD> €CSD> tCSD 

> {CSD> {CSD> {CSD> {CSD> tCSD> {CSD> {CSD> tCSD 

> {CSD> €CSD> {CSD> " 

1050 GOSUB 1900 

1060 PRINT "THIS IS THE GAME OF TWINKY. 
IN IT YOU" 

1070 PRINT "PRETEND TO BE A SPACE EXPLOR 
ER WHO HAS" 

1080 PRINT "LANDED ON A HOSTILE PLANET." 
: PRINT 

1090 PRINT "CAPTURED BY THE UNFRIENDLY N 
ATIVES, YOU" 

1100 PRINT "ARE TOSSED INTO A LARGE PRIG 
ON ALONG" 

1110 PRINT "WITH A FEROCIOUS TWINKY.": PR 
INT 

1120 PRINT "A TWINKY IS A HORRIBLE CREAT 
URE THAT" 

1130 PRINT "WILL CATCH YOU AND ABSORB YO 
UR BODY INTO"; 

1140 PRINT "HIS IF HE GETS CLOSER THAN T 
WO UNITS" 

1150 PRINT "AWAY FROM YOU." 
1160 GOSUB 1800: GOSUB 1900 
1170 PRINT "IN THE INTEREST OF FAIR PLAY 
YOU ARE" 

1180 PRINT "GIVEN A ZAP GUN THAT WILL TE 
MPORARILY" 

1190 PRINT "CHASE THE TWINKY AWAY." :PRI 
NT 

1200 PRINT "ALSO, IF YOU CAN MAKE IT TO 
THE SPECIAL" 
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1210 PRINT "OBJECTIVE SQUARE BEFORE BE IN 
6 ABSORBED " 

1220 print' "YOU WILL BE SET FREE.": PRINT 
1230 PRINT "AFTER YOU MOVE, YOU WILL BE 
INFORMED OF" 

1240 PRINT "YOUR DISTANCE FROM THE OBJEC 
TIVE SQUARE" 

1250 PRINT "AS WELL AS FROM THE TWINKY. " 
1260 60SUB 1800:60SUB 1900 
1270 PRINT "THERE ARE SEVERAL OTHER OBJE 
CTS WITHIN" 

1280 PRINT "THE MAZE WHICH ARE OF INTERE 
STa " S PRINT 

1290 PRINT "THERE ARE TWENTY RELOCATION 
SQUARES a " 

1300 PRINT "THESE SQUARES SEND YOU TO SO 
ME OTHER" 

1310 PRINT "SECTION OF THE MAZE. ": PRINT 
1320 PRINT "THERE ARE TWENTY IMPREGNABLE 
SGHJARES" 

1330 PRINT "WHICH YOU CANNOT ENTER.": PR I 
NT 

1340 PRINT "THERE IS ONE SUPER DEADLY KI 
LLER SQUARE" 

1350 PRINT "WHICH ENDS YOUR ORDEAL QUICK 
LY AND" 

1360 PRINT "PAINLESSLY. ": PRINT 

1370 PRINT "THAT'S IT... TRY TO ENJOY IT 

I «• 

1800 PRINT LEFT* (VT«, 24); "PRESS {RVS 0N> 
RETURN<RVS OFF> WHEN READY TO CONTINUE: 
{RVS 0N> " 

1810 GET AN«:IF AN«»"" THEN 1810 
1890 RETURN 

1900 PRINT "{CLR>{WHT>{CSD>{CSD>";TAB(13 
);»*** TWINKY »*♦": PRINT: PRINT 
1990 RETURN 
2000 : 

2010 REM *«* SETUP *** 
2020 : 

2030 GOSUB 1900 

2040 DIM MA (15, 15) 

2050 DEF FNR(X)sINT(RND(l>*X)+l 

2060 DEF FNA(X)«.001*INT<X«1000+.5) 

2090 : 

2100 REM *** BLOCKED 
2110 FOR I«l TO 20 
2120 X»FNR(15>:Y>FNR(15} 
2130 IF MA(X,Y) THEN 2120 
2140 MA<X,Y>«1 
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2150 NEXT 
2190 : 

2200 REM «*« RELOCATION 

2210 FOR 1=1 TO 20 

2220 X=FNR ( 15) : Y^FtiR < 15) 

2230 IF riA(X,Y) THEN 2220 

2240 MA(X,Y)»2 

2250 NEXT 

2290 : 

2300 REM «** SUPER KILL 
2320 X=FNR<15) :Y=FNR<15) 
2330 IF MA<X,Y) THEN 2320 
2340 MA(X,Y)=3 
2390 : 

2400 REM **« OBJECTIVE 
2420 X0»FNR(lS):Y0aFNR(15) 
2430 IF riA(XO,YO) THEN 2420 
2440 MA(X0,Y0)»4 
2490 : 

2500 REM »♦* TWINKY 

2520 XT=FNR ( 15) : YT=FNR ( 15) 

2530 IF riA(XT,YT) THEN 2520 

2540 MA<XT,YT)=5 

2590 : 

2600 REM •** PLAYER 

2620 XP=FNR (15): YP=FNR < 1 5 ) 

2630 IF MA<XP,YP) THEN 2620 

2640 MA(XP,YP)=6 

2690 : 

2900 SP=0:SSbO 
2990 RETURN 
3000 : 

3010 REM ♦♦« PLAY **♦ 
3020 : 

3030 60SUB 3600 

3040 (^SUB 3900: IF WL THEN 3990 

3050 print: SM*= INPUT "MOVE OR SHOOT ( 

M/S ) " ; SM« : SM*=LEFT« < SM* , 1 ) 

3060 IF SM*<>"M" AND SM*<>"S" THEN PRINT 

"ENTER 'M' OR 'S'":SOTO 3050 
3100 PRINT: PRINT "FORWARD, BACKWARD," 
3110 INPUT "RIGHT OR LEFT <F/B/R/L) ";AN 
»: AN«=LEFT« ( AN«, 1 ) 

3120 IF AN*="F" OR AN*="B" OR AN*="R" OR 

AN*="L" THEN 3140 
3130 PRINT "ENTER 'F', 'B', 'R' OR 'L'": 
GOTO 3100 

3140 IF AN*="F" THEN X=0:Y=-1 
3150 IF AN«="B" THEN X=0:Y=1 
3160 IF AN*="R" THEN X"1:Y=0 
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3170 IF ANt-'-L" THEN X»-1:Y"0 
3180 IF SM«»"S" THEN 3400 
3200 x=x+xp:y=y+yp 

3210 IF X>=1 AND X<=15 AND Y>=1 AND Y<=1 
5 THEN 3220 

3212 PRINT "MOVE NOT ALLOWED" 

3214 PRINT "THAT WOULD TAKE YOU OUT OF T 

HE MAZE": GOTO 3500 

3220 IF MA(X,Y)<>1 THEN 3230 

3222 PRINT "MOVE NOT ALLOWED" 

3224 PRINT "THAT SPACE IS BLOCKED" 

3226 GOTO 3500 

3230 IF MA(X,Y)<>2 THEN 3240 

3232 PRINT "YOU'VE BEEN RELOCATED " 

3234 X»FNR(15):YsFNR(15) 
3236 IF MA(X,Y)«1 THEN 3234 
3238 GOTO 3230 

3240 IF MA(X,Y)<>3 THEN 3250 

3242 PRINT "MOVE ALLOWED, BUT..." 

3244 PRINT "YOU FOUND THE SUPER KILL SOU 

ARE! ! ! " 

3246 PRINT "YOU'VE BEEN KILLED! !! ":GOSUB 

60300: WL»l: GOTO 3990 
3250 IF MA(X,Y)<>4 THEN 3260 
3252 PRINT "MOVE ALLOWED" 
3254 PRINT "YOU FOUND THE OBJECTIVE!!!" 
3256 PRINT "YOU WIN A TRIP OFF THIS PLAN 
ET ! ! ! ":WL=0:G0T0 3990 
3260 IF MA<X,Y)<>5 THEN 3270 
3262 PRINT "MOVE ALLOWED": PRINT 
3264 PRINT "««< SCHLOORP! ! ! 
»»>":SOSUB 60300: WL«=l: GOTO 3990 
3270 PRINT "MOVE ALLOWED" 

32QO MA (XP, YP) =SP: XP=X: YP-Y: SP"MA (XP, YP) 
:MA<XP,YP>=6:G0T0 3500 

3400 sx=xp:sy=yp 

3410 SX=SX+X:SY=SY+Y: PRINT "ZAP—"; 

3420 IF SX>°=1 AND SX<«15 AND SY>«1 AND S 

Y<«15 THEN 3430 

3422 PRINT "FIZZLE..." 

3424 PRINT "THE SHOT LEFT THE MAZE." 

3426 PRINT "THE SHOT MISSED THE TWINKY!" 

:G0T0 3500 

3430 IF MA(SX,SY)»0 OR MA(SX,SY)=2 OR MA 
(SX,SY>»3 OR MA(SX,SY)s4 THEN 3410 
3440 IF MA(SX,SY)<>1 THEN 3452 
3442 PRINT "BLAST!" 

3444 PRINT "THE SHOT HIT A WALL!!" 
3446 PRINT "THE SHOT MISSED": GOTO 3500 
3452 PRINT "OUCH ! ! ! " 
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3454 PRINT "THE SHOT HIT THE TWINKY" 

34S6 PRINT "THE TWINKY RETREATS" 

3460 MA < SX , SY ) =SS: XT«=FNR ( 15) : YT=FNR ( 15) : 

SS=MA(XT,YT) :MA<XT,YT)=5 

3500 REM **«* TWINKY MOVE LOGIC 

3510 GOSUB 3600 

3520 PRINT: PRINT "THE TWINKY MOVES ..." 

3530 FOR 1=1 TO 500: NEXT 

3540 GOSUB 3900: IF WL THEN 3990 

3550 IF XP<XT THEN X=-l: Y=0:GOTO 3590 

3560 IF XP>XT THEN X=1:Y=0:G0T0 3590 

3570 IF YP<YT THEN X=0: Y=-l:GOTO 3590 

3580 IF YP>YT THEN X=0:Y=1 

3590 ma ( xt, yt) =ss: xt=xt+x : yt=yt+y: ss»ma ( 
xt,yt):ma(xt,yt)=5:goto 3000 

3600 : 

36 1 DT=FNA < SQR ( < XT-XP ) t2+ ( YT-YP ) t2 ) ) 
3620 DO=FNA(SQR( (XP-XO) t2+(YP-Y0) t2) ) 
3630 PRINT: PRINT "THE TWINKY IS";DT;"UNI 
TS AWAY. " 

3640 PRINT: PRINT "THE OBJECTIVE IS"; DO?" 
UNITS AWAY." 
3690 RETURN 

3900 IF DT>=2 THEN 3990 

3910 print: PRINT "««< SCHLOORP 
! ! ! »>»" 

3920 PRINT "YOU'VE BEEN ABSORBED BY THE 
TWINKY ! ! ! " 

3930 PRINT "YOU LOSE.": GOSUB 60300: WL^l 
3990 RETURN 
60300 : 

60310 REM BELL SOUND ROUTINE 
60320 : 

60330 SD«54272:P0KE SD-i-24, 15 
60340 POKE SD+5,7:P0KE SD-i-6,0 
60350 POKE SD+ 1,90: POKE SD+4,33 
60360 FOR TS=1 TO 100: NEXT 
60370 POKE SD+4,0:P0KE SD+1,0 
60390 RETURN 
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For all of you word buffs, here is a game of anagrams geared to any skill 
level. For those of you who are not familiar with anagrams, they are words 
that are given in a scrambled fashion. The following list should help. 



SCRAMBLED 


UNSCRAMBLED 


RATING 


xob 


box 


1 (elementary) 


tahb 


bath 


2 (easy) 


laott 


total 


3 (light) 


betd 


debt 


4 (mild) 


gindru 


during 


5 (moderate) 


ptles 


slept 


6 (trying) 


spumlie 


impulse 


7 (tough) 


yrtaslc 


crystal 


8 (difficult) 


meminscon 


mnemonics 


9 (hard) 


preskulen 


spelunker 


10 (very hard) 



In the actual game, the difficulty factor ranges from one to five. The program 
does not utilize graphics per se, but there are some interesting points. Line 
3050 tells the computer to start printing inverse characters. Instead of 
printing white on black, the INVERSE is true, black being plotted on white. 
Lines 3050 - 3070 are responsible for drawing the white border. Try 
removing some of the inverse commands {RVS ON} and see what effects are 
produced in your program. 
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WORD SCRAMBLE *«* 



10 REM 
H REM **» 

12 REM «*♦ 

13 REM 

14 REM 

15 REM 

16 REM 

20 60SUB iooo:rem INSTS 

30 60SUB 2000: REM SETUP 
40 GOSUB 3000: REM PLAY! 
50 GOSUB 4000: REM !ENO! 
60 END 

1000 : 

1001 REM *** INSTS 

1002 : 

1010 P0KE532B0, O: P0KE53281 , O: PRINT" {CLR> 
{WHT> 

1015 VT*=" {HOME> {CSD> <CSD> <CSD> <CSD> tCSD 
> {CSD> {CSD> {CSD> CCSD> CCSD> CCSD> CCSD> CCSD 
> {CSD> <:CSD> {CSD> {CSD> {CSO} {CSD> {CSD> {CSD 
> {CSD> {CSD> {CSD> " : C0LS646 

1016 HT»=" €CSR> {CSR> {CSR> {CSRJ «CSR> tCSR> 
{CSR> {CSR> {CSR> €CSR> {CSR> tCSR> tCSR> tCSR> 
{CSR> {CSRl {CSR> {CSR> {CSR> {CSR> <:CSR> <:CSR> 
CCSR> {CSR> {CSR> {C8R> {CSR> {CSR> tCSR} " 
1020 GOSUB 1800 

1030 PRINTLEFT*(VT*,8);"IN THIS GAME, TH 
E COMPUTER WILL CHOOSE AWORD AND SHO"; 

1031 PRINT"W YOU A SCRAMBLED VERSION": PR 
INT 

1035 PR I NT "YOUR PROBLEM IS TO UNSCRAMBLE 
THE WORD BEFORE THE ALLOTTED TIME E"; 

1036 PRINT" XPIRES." 

1040 PRINT LEFT* <VT», 24); "PRESS ANY KEY 
TO CONTINUE" 

1041 GET ANS«:IF ANS*=""THEN 1041 

1799 RETURN 

1800 PRINT "<CLR>";LEFT*(VT*,4);LEFT*(HT 
«,9);"**« WORD SCRAMBLE ***" 

1801 RETURN 

2000 : 

2001 REM **« SET UP 

2002 : 

2010 GOSUB 1800 

2020 PRINTLEFT*<VT*,8) ; "TJ« FOLLCMING AR 
E AVAILABLE : ":PRINTLEFT*<VT*, 12) ; 
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2025 PRINT" 

2026 PRINT" 

2027 PRINT" 

2028 PRINT" 

2029 PRINT" 



1) VERY EASY" 

2) EASY" 

3> INTERMEDIATE" 

4) ^WRD 

5) VERY HARD 



2030 PRINTLEFT«(VT«, 19>;:INPUT"WHICH OPT 

ION (1-5) :";ans 

2035 IFANS< 10RANS>50RANS< >INT (ANS) THENSO 
SUB60300: G0T02030 

2100 DIM W0«(100):F0RI=1T0100:READW0«(I} 

:next 

2105 DATACAT, DOS, TREE, SIT, DOOR, BOX, ARM, W 
ALL, TEA, PEN, PAD, CUP, PIN, DI6, 600D, TIE 

2106 DATASEA,ARE,HOW,LIP 

21 10 DATAWARM, WIND, LEAF, BLUE, WAIT, KITE, S 
LIP, DRIP, MAZE, PARK, LIFE, GAME, HIGH, DISK 

2111 DATARUIN, CARD, MOLE, ARCH, HARD, VERY, D 
ATA 

2115 DATAPENCIL, LOOSE, NORMAL, TIRED, BEFOR 
E, AFTER, BLACK, TARGET, KNOCK, BAGEL, INPUT 

21 16 DATARETURN, START, ENTRY, GROUND, SHINE 
, HORSE, PAPER, GREEN, PHONE 

2120 DATAORIGINAL, BEHIND, MAGAZINE, STORAG 
E, SCRATCH, COMPUTER, PERSONAL, SOFTWARE 

2121 DATAPERFORM, SYSTEM, WINDOW, COMBINE, T 
ANGENT, SPECIFY, ANOTHER, EVALUATE, MEMORY 

2122 DATAINSIDE, IGNORE, HOWEVER 

2125 DATASEQUOI A, MATRI X , COORDINATE, SPACI 
AL, DIRECTION, SUBSTANTIAL, CONTINUE 

2126 DATASUBSCRIPT, EMULATE, APPROPRIATE, C 
ONICAL, DEVELOPMENT, ELEVATION, MECHANICAL 

2127 DATAMAGNETIC, TRAJECTORY, STIMULUS, CI 
RCUMSTANCE, PROBABILITY, PROJECTION 

2200 DIM WR«(15),WS«(15>,WC*(15) 
2990 RETURN 

3000 : 

3001 REM *** PLAY 

3002 : 

3010 W0sINT(RND(l)*20) + (AN-l)*20-i-l 

3020 WL'LEN <W0« <W0> > : F0RI»1T0WL: WR» ( I > »M 

iD«(wo«(WO},i, i):ws«(I}«wr«(I):next 

3025 FORIbITOWL: TX«INT (RND ( 1 ) *WL> +1 : ws«« 

ws« ( I ) : ws« ( I } «ws« (TX> : ws« (Tx ) "WS«: next 

3030 PRINT" €CLR> "LEFT* <VT», 4) ; TAB <9) ; "*» 
« WORD SCRAMBLE ***" 

3040 PRINTLEFT«(VT«,8);"HERE IS YOUR SCA 
MBLED WORD :" 

3050 PRINTLEFT* (VT», 11); TAB ( 10) ; : F0RI=1T 

OWL+4: PRINT" tRVS 0N> ";:NEXT 

3060 PRINTLEFT* ( VT», 12) ; TAB < 10) ; : PRINT" t 
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RVS 0N> ";TAB(10+WL+3)" ";left*<vt*, 13); 
TAB (10) ; 

3061 PRINT" <RVS 0N> "?TAB(10+WL+3) " ";LE 

FT*(VT*, 14);tab(10);" "; 

3062 PRINTTAB(10+WL+3)»tRVS 0N> 

3070 PRINTLEFT* < VT*, IS) ; TAB < 10) ; : F0RI=1T 
OWL+4: PRINT" {RVS 0N> {RVS OFF>";:NEXT 
3080 PRINTLEFT* (VT*, 13) STAB (12) ; :F0RI=1T 

OWL: PRINTWS* ( I ) ; : next 

3090 PRINTLEFT* (VT*, 18) STAB (12) { :F0R1«»1T 
OWL: PRINT"-" ! : NEXT 

3100 PRINTLEFT*(VT*,21)TAB(1)"{RVS OFFX 
ENTER A-Z FOR THE LETTER. . -RETURN WHENYO 
U AR"; 

3101 PRINT"E DONE.)" 
3200 WP«1 

3205 F0RI»250*ANT01STEP-1 

3206 IFPEEK(197)<>64THEN3210 

3207 IFINT (1/50) »50=ITHENPRINTLEFT* (VT*, 
13) TAB (28) "TIME :"; INT (1/50) ; "{DEL> " 

3208 NEXT: RETURN 

3210 PRINTLEFT* (VT*, 18) ; TAB( 11+WP) ; :6ETA 
NS*: IFANS*»" "THEN3207 
3220 IFASC(ANS*)=20THEN3300 

IFASC ( ANS*) =21THEN3400: REM ?ASC (21 ) 
I F ASC ( ANS* ) = 1 3THENRETURN 
IFAN*< " A"ORAN*>" Z "THENAN*="-" 
WC* ( WP ) » AN* : PR I NTAN* 
WP^WP+l : IFWP>WLTHENWP«1 
60T03207 

IFWC* (WP) =" "THENPRINT"-" ; : B0T03320 
PRINTWC*(WP) ; 
WP«WP-1 : IFWP< ITHENWPsWL 
60T03207 

I FWC* ( WP ) = " " TIffiNPR I NT " - " 5 : B0T03420 
PRINTWC*(WP); 
WP»WP+1 : IFWP>WLTHENWP»1 
G0T03207 



3230 
3235 
3240 
3245 
3250 
3260 
3300 
3310 
3320 
3330 
3340 
3410 
3420 
3430 
4000 
4001 
4002 : 

4010 F0RI>1T0WL: PRINTLEFT* ( VT*, 13) ; TAB ( 1 

i-i-i);WR*(i); 

401 1 ifwc* ( i ) =wr* ( i ) thenprintleft* (vt*, 1 
8);tab(11+I);"{RVS on> "WC* ( i ) s " {RVS off> 
":wc=wC'i-i 

4020 next: PRINTLEFT* ( VT*, 21 ) ; TAB ( 1 ) ; : IFW 
C=WLTHENPRINT"CONeRATULATIONS! "; : ZT=1 

4021 IFZT=1THENZT=0: PRINT" YOU UNSCRAMBL 
ED THE ENTIRE WORD! ":60T04040 




REM *** END 
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4030 PRINT" tCSDJCCSDJTHE 6AME IS OVER... 

OUT OF"WL"LETTERS, YOU GOT"WC"CC«RECT. 
•• 

4040 INPUT"DO YOU WISH TO PLAY AGAIN"; AN 
S*: IFLEFT* (AN«, 1 ) =" Y"THENRUN 
4050 RETURN 
60300 : 

60310 REM BELL SOUND ROUTINE 
60320 : 

60330 SD'=54272: F0RLSb0T024: POKESD+LS, 0: N 
EXT 

60340 POKESD+1 , 90: POKESD+5, 9: POKESD-i-15, 3 

0:P0KESD+24,15 

60350 FORLS= 1 TO 1 : POKESD+4 , 2 1 

60360 F0RTS=1T025: NEXT: POKESD-t-4, 20 

60370 F0RTS«1T025: NEXT: NEXT 

60375 POKESD-i-24,0 

60380 RETURN 
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This is an addicting game in which you try to consume all of the flower 
points before the Mubble Eaters catch up and consume you. The action 
takes place on a 9 by 7 grid. There are 48 flower points and three Mubble 
Eaters (ME's). If you do not complete the mission on the first run, don't 
worry. This game gives you three "men" per game. If you are unable to eat 
all the flower points with your first man, you can finish the maze with your 
second two. It is up to you to safely guide the Mubble to gluttony. This is 
one of two programs in the book that will be explained line by line. It was 
chosen because its use of graphics is similar to that used by many of the 
other games in the collection. If you can understand how this program 
works, you should be able to figure out how most of the others work as well. 

10-14 REM means REMark. Anything may be construed as a remark. In this 
case, the REM statement is used to allow the program name to be written. 
Naturally, ****************** is not a REMark about the program itself, but 
the REM statement allows the programmer to construct a title display in a 
format which is acceptable to the computer. 

15-16 Colons may be used to space apart sections of the program just like 
REM statements. The computer will go to the next line if it encounters a 
colon on a line by itself. 

20 GOSUB 1000 tells the computer to branch to line 1000 and to continue 
program execution from that point on until a RETURN statement is 
encountered. When a RETURN is encountered, the program will return to 
line 20, see if there are any more statements on that line and execute them 
(in our case there is only a REM), then drop down to line 30. The REM 
statement is strictly for your benefit — it tells you that the subroutine 
beginning at line 1000 contains the instructions for the game. 
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30-50 Are essentially the same as line 20. This small section of the program 
shows that a good BASIC program has a clearly defined structure. All 
instructions are included in lines 1000-1999, program setup in lines 2000- 
2999, game play in lines 3000-3999, and the end routine (i.e., displaying the 
final score, etc.) is located from 4000 to the end of the program. 

60 The END statement ends the entire program after the end routine has 
been executed. 

70-1000 More colons for spacing. 

1001 REM *** INSTRUCTIONS This line tells the programmer that the 
instructions section of the program starts with this line. 

1002 Colon for spacing. 

1010 POKE 53281,12 sets the background screen color to light grey, and 
POKE 53280,12 does the same for the screen border. The PRINT "{CLR}" 
clears the screen and HOMEs the ciirsor to the upper left corner of the 
screen. This will show up as an inverse heart-shaped character on your screen. 

1020 PRINT TAB(IO) uses the TAB command to center the title. The first 
character to be PRINTed is a (CTRL-1) which sets the letter color to black. 

1025 The two PRINT statements add some space between the title and the 
text to follow. 

1030-1050 These lines print what is between the quotation marks on the 
screen. Note that lines 1030, 1031, 1040, and 1050 all end with a semicolon. 
A semicolon suppresses the carriage return at the end of the line, and causes 
the text in the next PRINT statement to continue on the same screen line. 
1035, a PRINT all by itself, causes a blank line to be PRINTed on the screen. 

1055 Waits for you to press the keyboard to indicate that you have read all 
the instructions that on the screen. Unlike GET statements in other BASICs, 
GET statements in Commodore BASIC will go right on to the next Hne if a 
key is not being pressed when one is encountered. That is why you'll see a 
structure like GET X$ : IF X$ <> (condition) THEN 1055 in a lot of 
Commodore listings. The IF X$ <> CHR$(13) checks to see if the ASCII 
code for the key being pressed is 13 (a carriage return). Until the RETURN 
key is pressed, the rest of the hne will continue to be executed (GOTO 1055) 
and the program will go nowhere. 
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1060 Once a RETURN is entered in 1055, program contxol falls through to 
this line. It clears the screen for more text. 

1065 PRINTS the title again. 

1066 PRINT statements used for blank lines on the screen. 

1070-1080 PRINT the text inside quotation marks to the screen. 

1085-1095 Construct the diagram of keys that are used in the game to 
control the movement of the Mubble. Change the values in some of the 
TAB statements if you can't see how the TABs are being employed. 

1 100-1 105 Waits for INPUT as in line 1055. 

1990 The RETURN is placed near the end of the 1000-1999 section. It is 
best to place RETURNs at the very end of a subroutine so that if any other 
changes need to be made, they can be entered easily. It also helps keep the 
structure of the program very clear. Control will return to line 20, where the 
REM will be encountered. Control will then go to line 30, and the program 
will continue execution at line 30. 

2000 : This line and line 2002 do nothing but add to the readability of 
line 2001. 

2001 REM •** SETUP Tells the programmer that the setup section of the 
program starts with this line. 

2003 SID=54272 Gives the memory location of the SID chip, which is used 
to generate sound on your Commodore 64. By setting a variable equal to the 
beginning location for the chip, we can use FOR/NEXT loops to stuff values 
into it rather than POKEing one value in at a time. It's easier to use a 
structure like the following than to POKE a value into each of 24 locations 
one at a time: 

FOR I = TO 24 : POKE SID-hl.C : NEXT I 

2015 Two arrays are DIMensioned in this line. Let's take a quick look at how 
multi-dimensional arrays are set up. A DIMension of ME(3,2) will set up a 
total of six memory locations. The numbers in the parentheses are called 
subscripts — so ME is said to be a double-subscript variable. This array 
contains the elements ME(1,1), ME(1,2), ME(2,1), ME(2,2), ME(3,1), and 
ME(3,2). These elements are arranged in memory something like this: 
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ROWl 



ROW 2 



ROWS 



COLUMN 1 



ME(1,1) 



ME(2,1) 



ME(3,1) 



COLUMN 2 



ME(2,2) 



ME(1,2) 



ME(3,2) 




Each of these is actually a different variable — all related, but individual 
nonetheless. In our example, the ROW number (or first subscript) corresponds 
to a specific Mubble Eater, while the COLUMN number gives further detail 
about that Mubble Eater. In our case, for example, ME(1,1) will contain 
Mubble Eater #l's X coordinate, and ME(1,2) will contain his Y coordinate. 

An array actually has an automatic subscript as well, thus creating subscripts 
like ME(0,1), but these are usually not used. It is permissible to use them, 
but not recommended. Also, the computer does not actually store arrays in 
two dimensions, but as a long string. The computer can access part of that 
string very quickly. The illustration above is just an easy way to visualize the 
way in which arrays are stored in memory. 

The SP(3) DIMension will create a single-DIMensional array containing the 
elements SP(1), SP(2), and SP(3). Each of these is a unique variable as well. 

2020-2026 These lines contain the graphics routine explained at the beginning 
of the book. PLT is set to the beginning memory location of the block of 
memory that this routine will be stored in. Line 2020 works like this: the 
FOR I = to 24 will cause the FOR/NEXT loop to be executed a total of 25 
times (0 counts!). Each time the loop is executed, READ C will READ the 
first DATA element encountered (in this case the 32 in line 2021). The 
POKE PLT+I,C will put the value C just read into the memory location 
calculated by the equation PLT + 1. The first time through the loop PLT + 1 
will equal 49152, the second time 49153, and so on. This structure lets you 
read large blocks of data into sequential memory locations. 

2030-2032 DIM CO$(15) DIMensions an array of 15 elements. We will use 
each of these variables to represent a single color. The FOR/NEXT loop in 
the second part of the line reads each of the colors (which are entered as 
string DATA elements in lines 2031-2032) into the array. 
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2035 This line initializes (sets the initial value of) some variables, PT is set to 
0, MU is set to 3, and NM is set to 4. The POKEs set the background and 
border colors to black. 

2041-2049 Line 2041 clears the screen and draws a horizontal white line 
across the top of the screen. The FOR I = 1 TO 19 STEP 3 will create the 
same pattern a total of 7 times — a group of 3 lines consisting of a solid 
black line, followed by two lines that create the blue boxes that make up the 
playing field. 2048 PRINTs the final horizontal black line, and 2049 PRINTs 
the horizontal white line across the bottom of the screen. 

2050 Draws the number of Mubbles remaining at the bottom of the screen. 

2060 Creates a two DIMensional array for the variables MU(1,1) through 
MU(8,2), as explained above. 

2070-2074 These lines probably look scarier to you than they really should. 
Line 2070 contains a FOR statement, but so does 2071, and we don't get a 
NEXT until line 2074, and then there are two. What gives? Actually, this 
programming structure is quite common. The whole construct is known as a 
nested loop, in that one loop is completely enclosed within another. The 
outer loop, which is the I-loop, is enclosed by lines 2070 and the second 
NEXT in line 2074. The purpose of these lines is actually to draw the flower 
points on the maze, so it may be easier to explain if we attack the problem 
from that point. The first time through the loop, I = 5. In line 2071, J will be 
set to 4. So with 1=5 and J=4, control drops to line 2072. The first part of 
the line selects at random a 1 character long portion of C$ (sets a color). 
SYSPLT,IJ uses the graphics routine to plot the point 5,4. Next, the line 
makes sure that we are not in reverse mode, PRINTs C$ (sets the color), 
then draws an asterisk ("*"). Control then goes back to line 2071 where J is 
incremented by the STEP value, which in our case is 3. When this inner loop 
has been executed enough times so that J=19, the loop will end and the 
second NEXT in line 2074 will send control back to line 2070, where I will 
be incremented by 4 and the entire process will be repeated until all the 
flower points are drawn. While this may seem complex, to create this display 
using PRINT statements would actually require a greater number of lines 
and more space in memory. 

2080 & 2085 These two lines set up FuNctions which can be called later in 
the program. Rather than typing out these entire lines every time such 
information is required, you can type in something like PRINT FNSC(12), 
and the FuNction defined in line 2080 will perform that calculation with a 
value of 12 inserted for V. SC and V are variables that may be designated by 
the programmer, but the DEF FN section must always contain only those 
reserved words. 

V J 
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2990 Returns control back to line 30 as line 1990 did to 20. 

3000 & 3002 Colons used for spacing. 

3001 REM statement to indicate beginning of PLAY segment. 

3005-3006 Enter the original X,Y coordinates for the Mubble Eaters into 
the array ME. At the beginning, a Mubble Eater is placed in each corner. 
ME(1,1) and ME(1,2) define Mubble #l's X and Y coordinates. 

3007 Plots the Mubble Eaters using SYSPLT. 

3008-3009 3008 figures out the location of the Mubble. The variable NM is 
the length of the Mubble. 3009 sets the variable MX to 4 (NM) and MY to 22. 

3010 Draws the Mubble, using the values in the MU array and a FOR/NEXT 
loop. The variables MD, HI, and MM are all initialized. 

3011 First, MU is decremented by one. Then a test is made (IF MU < 0) and 
if the condition is found to be true, control will RETURN to line 40 (the 
beginning of the subroutine). 

3015 PRINTS the READY message across the bottom of the screen, and 
holds it there for a delay of 2000. 

3016 Erases the message so the screen won't look cluttered. 

3020 Sends program control to the subroutine at 3300, which, as explained 
by the REM, moves the Mubble. 

3025 Checks to see if PT = 48 (if all 48 flower points have been eaten). This 
would mean that the screen has been cleared, and control would be sent 
back to the top of the program. 

3030 Sends program control to the subroutine at 3400, which, as explained 
by the REM, moves the Mubble Eaters. 

3040 HI is a "flag." Normally HI will equal 0, indicating that no collision has 
taken place. This will send control back to 3020, and both Mubble and 
Mubble Eaters will be moved again. 

3041-3044 This group of lines makes a raspberry sound if one of the Mubble 
Eaters catches up to the Mubble. 

3045-3051 Erase the old Mubble Eaters^iid^lubble^ro^ 
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3005 Sends control back to 3005, giving a fresh playing board (except for 
flower points already eaten), and starting the next round of play. 



3300 Don't fret. Although this line appears to be a confusing conglomeration 
of variables, there is a definite purpose for this line. Before starting with an 
explanation, there are two important facts that we must know. One, MX and 
MY are the X and Y coordinates of the Mubble. Two, the flower points are 
located at specific intervals. Armed with this knowledge, you have a good 
chance of understanding what follows. The 48 flower points are each located 
at an intersection. The X,Y coordinates at these 48 points are: 



5,4 


9,4 


13,4 


17,4 


21,4 


25,4 


29,4 


33,4 


5,7 


9,7 


13,7 


17,7 


21,7 


25,7 


29,7 


33,7 


5,10 


9,10 


13,10 


17,10 


21,10 


25,10 


29,10 


33,10 


5,13 


9,13 


13,13 


17,13 


21,13 


25,13 


29,13 


33,13 


5,16 


9,16 


13,16 


17,16 


21,16 


25,16 


29,16 


33,16 


5,19 


9,19 


13,19 


17,19 


21,19 


25,19 


29,19 


33,19 



All 48 of these points have one important thing in common. If you add three 
to any of the eight different X coordinates, the sum will be an exact multiple 
of four. Therefore, MX+3 divided by 4 will be an integer, and (MX+3)/4 will 
be equal to INT (the integer value of) (MX+3/4), Also, if you add two to any 
of the six Y coordinates, then the sum will be evenly divisible by three, and 
(MY+2)/3 will equal INT((MY+2)/3). The only times when both (MX+3)/4 = 
INT((MX+3)/4) and (MY+2)/3 = INT((MY+2)/3) are at one of the forty-eight 
intersections. If, indeed, the Mubble is at an intersection, then FL equals 
"yes." If the Mubble is not at an intersection, then FL equals "no." 

3301 This line is a test. If FL is equal to "yes" then the computer will skip to 
line 3320. 

3304 Reads the keyboard for the desired direction. If no key is being pressed 
when the GET comes up, the direction stays the same, and control goes on 
to line 3320 without changing the Mubble' s direction. 

3310-3313 These four lines check to see if the last key pressed was an A, K, 
Z, or J. Note that only if one of these keys was pressed will the variable MD 
be changed. 

3320 Sets the variable X2 equal to the Mubble's X coordinate and Y2 to the 
Mubble' s Y coordinate. 

3321-3324 Each of these lines checks the value of MD (Mubble's Direction). 
In 3321, IF MD equals 1, then X2 is increased by 1 (the Mubble moves 
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towards the right of the screen). The same tests are made for the other three 
directions in lines 3322-3324. 



3330 This line checks to see if either the X or Y coordinate of the Mubble is 
out of the range of the maze. If it is, the subroutine will RETURN and wait 
for an acceptable direction to be entered. 

3340 This hne makes use of the function FNSC described earlier. If the 
character at this intersection is not an asterisk ("*"), then the program skips 
to line 3345. 

3341 If the character at that intersection was indeed an asterisk, the point 
total is incremented by 1. If PT=48, then all the flower points have been 
collected and control RETURNS to the beginning of the entire loop. 

3345-3346 These lines are responsible for plotting the Mubble as it now 
appears. 

3350 These lines define the values X2 and Y2, and then equate MX and MY, 
the X and Y coordinates for the Mubble, to these two variables. 

3355 Ends the Mubble Move subroutine. 

3400 Begins the subroutine that controls the movement of the Mubble 
Eaters. This is the beginning of a loop which will be run through three times. 

3401 Defines which of the three Mubble Eaters are to be moved. The first 
time through the loop it will be Mubble #1, the second time #2, etc. 

3402 Uses the same test as in line 3300 to determine if the present Mubble 
Eater is at an intersection. 

3405 If the Mubble Eater is not at an intersection, then the program "drops 
through" to line 3430. 

3407 This line is going to generate a random number in order to determine 
how the Mubble Eater will make his move. The first part of the line will 
create the random number, and will use an ON/GOTO structure to decide 
the appropriate subroutine. If the number is equal to 1, 2, 3, 4, or 5, control 
drops to line 3410. If the number is equal to 6 or 7, control goes to 3420, 
and if it equals 8 then control goes to 3430. 

3410 Checks to see if the random number generated in line 3407 is greater 
than .5 . If it is, then control drops through to line 341 3. 
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3411-3414 These lines function in much the same way as lines 3310-3313. 
Various comparisons are made between the X and Y coordinates of the 
Mubble and the X and Y coordinates of the Mubble Eater. Depending on 
the relationship between these two coordinates, a direction is assigned to 
the Mubble Eater. 



3420 If the random number generated in line 3407 was either 6 or 7, then a 
random direction is assigned to the Mubble Eater. The INT(4*RND(0))+1 
will generate a random number between 1 and 4 for the direction. 

3430 If the random number generated in line 3407 was equal to 8, control 
dropped straight through to this line of the program. In this case, the 
direction for the Mubble will remain the same. 

3435-3438 The X and Y coordinates will be adjusted in these four lines, 
according to the value TD has been assigned. These lines work much the 
same way as lines 3321-3324, so look at their description above if you don't 
see what is happening here. 

3440 Does more range checking to make sure that the Mubble Eater is 
within the range of the maze. If it is not, control is sent to line 3490. 

3445 Erases the old Mubble position. 

3450 Sets the variable SP$(I) equal to a random flower point color using the 
FNCO function defined earlier in the program. If this line is removed, the 
Mubble Eaters will not replace the flower point that they have crossed 
over — rather, they will just erase it. 

3455 Plots the new Mubble Eater. 
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3490-3494 These two loops (the I and J loop) check to see if any of the three 
Mubble Eaters has caught up with the Mubble. Notice that in line 3492, the 
variable HI is set to 1 if there has been a collision. Remember that in line 
3040, that if HI is set to 1 then the program assumes a collision has taken 
place, and will branch off accordingly. 

4000 & 4002 Colons used for spacing. 

4001 REM *** END is used to indicate that this is the first line of the END 
subroutine. 

4015 Checks the value of PT at the end of the game. If PT= 48, then all the 
flower points were gathered, and the message in that line will be PRINTed. 
If PT <> 48 then control drops through to line 4020. 

4020 PRINTS the total flower points gathered if that total is less than 48. 
That total is incorporated into the middle of the sentence, simply by 
PRINTing the variable within a PRINT statement. 

4990 This line RETURNS control of the program to line 50 (which sent it to 
line 4000 to begin with). Finally, control drops through to line 60 and the 
whole program ENDs. 

To produce the diamond figure (as in line 2050), press SHIFT- Z. 
To produce the circle figure (as in line 3007), press SHIFT- W. 
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11 

12 
13 



REM *** *** 
REM «* MUBBLE CHASE ** 
REM *** **« 



REM 



14 REM «««*««««»**««*««*«*« 

15 : 

16 : 

20 g0sub1000:rem instructions 
30 60SUB2ooo:rem setup 

40 G0SUB3000:REM PLAY! 
SO 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1010 P0KE53281 , 12: P0KES3280, 12: PRINT" {CL 
R>" 

1020 PRINTTABdO) "{BLK>*** MUBBLE CHASE 
»**" 

102S PRINT: PRINT 

1030 PRINT" IN THIS EXCITING GAME, YOU CO 
NTROL THE MOVEMENT OF THE HUNGRY 

1031 PRINT"LITTLE CREATURE WE CALL THE 
MUBBLE. THE MUBBLE SCURRIESTHROUGH "; 

1032 PhlNT"A MAZE, TRYING TO EAT UP ALL 
OF THE FLOWER POINTS." 

1035 PRINT 

1040 PRINT"UNFORTUNATELY, THERE ARE THRE 
E MUBBLE- EATERS IN THE SAME MAZE, "; 

1041 PRINT"WHO WANT TO CATCH AND EAT 
THE POOR MUBBLE." 

lOSO PRINT: PRINT: PRINT"PRESS *RETURN« WH 

EN READY TO CONTINUE"; 

1055 GETX«: IFX«< >CHR« ( 13) THEN105S 

1060 PRINT" tCLRJ" 

1065 PRINTTAB<10)"{BLK>*** MUBBLE CHASE 



1066 PRINT: PRINT 

1070 PR I NT "YOU MUST MANEUVER THE MUBBLE 
TO THE" 

1071 PRINT"FLOWER POINTS AND AWAY FROM T 
HE MUBBLE" 

1072 PRINT"EATERS. YOU ARE ALLOWED TO L 
OSE TWO" 

1073 PRINT"MUBBLES, BUT WHEN THE THIRD M 
UBBLE IS" 

1074 PRINT"EATEN, THE GAME IS OVER." 
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1075 PRINT 

1076 PRINT"ALSO THE HUBBLE BROWS AS HE C 
ONSUMES THE FLOWERS, HAKIMS IT "; 

1077 PRINT''HARDER TO AVOID THE HUBBLE E 
ATERS!" 

1080 PRINT 

1085 PRINT"HOVEHENT OF THE HUBBLE IS CON 
TROLLED BY USING THE LETTERS A,Z,J,K. " 

1090 PRINT 

1091 PRINTTAB<16)"UP" 

1092 PRINTTAB<16)"A" 

1093 PRINTTAB<7) "LEFT - J K - RISHT" 

1094 PRINTTAB<16) "Z" 

1095 PRINTTAB(15>"D0WN" 

1100 print: PRINT"PRESS «RETURN* WHEN REA 
DY TO CONTINUE"; 

1 105 GETX«: IFXS< >CHR« ( 13) THENl 105 
1990 RETURN 

2000 : 

2001 :REH *** SETUP 

2002 : 

2003 SID-54272 

2015 DIHHE(3,2),SP(3) 

2020 plt=49152: f0ri»0t024: readc: pokeplt+ 
i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA15S, 173,76, 170, 177 

2030 DIHCO« ( 15) : F0RI»0T015: READCO* ( I > : NE 
XT 

2031 DATA" {BLK> " , " <WHT> " , " {RED> " , " tCYN> " 
, " «PUR> " , " CGRNJ " , " {BLU> " , " <:YEL> " 

2032 DATA" {:0RN6> " , " {BRWN> " , " tLT RED> ","<. 
BRY 1>","€GRY 2>","<:LT GRN>","€LT BLU>", 
"tGRY 3>" 

2035 PT=0 : HU=3 : NH=4 : P0KE5328 1,0: P0KE5328 
0,0 

2041 PRINT" {CLR>{RVS ON>{WHT> 



2043 F0RI=1T019STEP3 

2044 SYSPLT,0, I:PRINT"{RVS ON>CWHT> tRVS 
OFF> 

{RVS 0N> " 

2045 PRINT" <RVS ON>{WHT> {CSR>{LT BLU> 
{CSR> {CSR> CCSR> {CSR> {CSR> 
{CSR> {CSR> {CSR> {CSR><WHT> " 

2046 PRINT" {RVS ON>{WHT> {CSR>{LT BLU> 




jiji" 
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<CSR> {CSR> {CSR> {CSR> {CSR> 

{CSR> {CSR> {CSR> {CSR}{WHT> " 

2047 NEXT 

2048 PRINT" {RVS ON>{WHT> {RVS OFF J 



2050 PRINT" {GRN> «. « ^"i 
2060 DIMMU(8,2> 

2070 Ff3RIa5T033STEP4 

2071 F0RJ«4T019STEP3 

2072 C*=MID*<"{LT RED>{LT 6RN>{YEL> CPUR} 
{GRN> " , 1+5*RND <0) , 1 > : SYSPLT, I , J : PRINT" {R 
VS OFF>"C«"»"; 

2074 NEXT: NEXT 

2080 DEFFNSC(V)bPEEK(1024+X2-<^0*Y2-i-V) 
2085 DEFFNC0(V>»PEEK(55296+X2+40*Y2-i-V)AN 
D15 

2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3005 ME(l,l)al:ME(l,2}al:ME(2,l)«37:ME<2 
,2)-l 

3006 ME(3, l)»37:riE(3,2)»22:DE(l)«l:DE(2) 
»4:DE(3>=3 

3007 F0RI=1T03: SYSPLT, ME ( I , 1 ) , ME ( I , 2) : PR 
INT" {WHT>o" ; : SP* ( I > =" " : NEXT 

3008 F0RI«1T0NM: MU ( 1 , 1 ) »I : MU < 1 , 2) =22: NEX 
T 

3009 MX=NM:MY=22 

3010 FORI^ITONM: SYSPLT, MU ( I , 1 ) , MU ( I , 2) : P 
RINT" {GRN>«." ; : NEXT: MD=1 : Hi=o: m=o 

30 1 1 riU»MU- 1 : I FMU< OTHENRETURN 

3015 SYSPLT, 15, 24: PRINT" {WHTJ«< READY > 

»"j :fori=ito200o:next 

3016 SYSPLT, 15, 24: PRINT" "; 
3020 60SUB3300:REM MOVE MUBK-E 

3025 IFPT«48THENRETURN 

3030 G0SUB3400:REM MOVE MUBBLE EATERS 

3040 IF HI=0 THEN 3020 

3041 POKESID+24, 15: POKESID+5, 9: POKESID+6 
,0 

3042 F0RI»15T00STEP-l:P0KESID+l, 10-i-40*RN 
D(0>:P0KESID-i-24,I 

3043 POKESID-i-4, 33: F0RPA=1T010: NEXT 

3044 POKESID-i-4, 32: NEXT: POKESID, O: POKESID 
+1,0 

3045 F0RI«1 T03: SYSPLT, ME ( I , 1 ) , ME ( I , 2) : PR 



{RVS aN> 



n 



2049 PRINT" {RVS ON>{WHT> 



n 
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INTSP«<I) ; :next 

3050 fori=itonm: SYSPLT, MU ( I , 1 ) , MU ( I , 2) : p 
RINT" ";:next 

3051 SYSPLT, 2, 24: PRINTCHR* (20) CHR* (20) ; 
3055 60T03005 

3300 FL= ( (MX+3) /4) =INT < (MX+3) /4) AND ( (MY+ 
2) /3> =INT < (MY+2) /3) 

3301 IFN0TFLTHEN3320 

3304 eETK*:lFK*=""THEN3320 

3310 IFK*="A"THENMD=2 

3311 IFK*="K"THENMD=1 

3312 IFK*="Z"THENMD=4 

3313 IFK*="J"THENMD=3 

3320 X2=HX:Y2=MY 

3321 IFND»lTHENX2=X2-t-l 

3322 IFMD=2THENY2-Y2-1 

3323 IFMD=3THENX2=X2-1 

3324 IFMD»4THENY2«Y2+1 

3330 IFX2< 10RX2>370RY2< 10RY2>22THENRETUR 
N 

3340 IFFNSC(0)<>42THEN3345 

334 1 PT-PT+ 1 : I FPT=4STHENRETURN 

3342 T=4+INT (PT/12) : IFT< >NMTHENNM»T: MU <N 
M, 1 ) »X2: MU (NM, 2) »MY 

3345 SYSPLT, riU<l,l),MU< 1,2): PRINT" ";:SY 
SPLT , X2 , Y2 : PR I NT " {GRN> * " ; 

3346 FORZ»lTONM-l:HU(I,l)"liU(I-i-l,l):nU(I 
,2)»MU(I-<-l,2):NEXT 

3350 MU <NM, 1 ) =X2: MU (NM, 2) =Y2: MX«X2: MY=Y2 
3355 RETURN 

3400 F0RK«lT02:MM«MM+l:IFMM>3THENMM»l 

3401 I»MM:TX=ME(I, 1) :TY=ME(I,2) 

3402 FL=( (TX+3)/4)=INT( (TX+3)/4)AND( (TY+ 
2) /3) =INT ( (TY+2) /3) 

3405 IFN0TFLTHEN3430 

3407 0N1+8*RND (O) G0T03410, 3410, 3410, 3410 
,3410, 3420, 3420, 3430 

3410 IFRND(0)>.5THEN3413 

3411 IFMX<TXTHENDE(I)=3:60T03430 

3412 IFMX>TXTHEN0E(I>»l:G0T03430 

34 1 3 I FMY< T YTHENDE ( I ) =2 : eOT03430 

34 1 4 Z FMY >TYTHENDE ( I ) »4 : 60T03430 
3420 0E(I)»INT(4*RND(0))+1 
3430 X2=TX : Y2=TY : TD-DE ( I ) 

3435 IFTDslTHENX2>X2+l 

3436 IFTD-2THENY2-Y2-1 

3437 IFTD=3THENX2=X2-1 

3438 IFTD-4THENY2-Y2+1 

3440 I FX2< 1 0RX2 >370RY2< 1 0RY2 >22THEN3490 
3445 SYSPLT, TX , TY: PRINTSP* ( I ) ; 
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3450 SP» ( I ) =C0» ( FNCQ < O ) ) : T=FNSC < O ) : I FT=8 
7THENT=i51 

3451 IFT=90THENT=122 

3452 SP«(I)«SP«(I)-i-CHR«(T> 

3455 SYSPLT , X2 , Y2 : PR I NT " { WHT> n " ; : ME < 1 , 1 ) 
=X2:ME<I,2)=Y2 

3490 F0RI=1T03: TX=ME (1,1): TY=ME < 1 , 2) 

3491 F0RJ=1T0NM 

3492 IFTX=MU ( J , 1 ) ANOTY»MU < J , 2) THENHI»1 : G 
0T03495 

3493 NEXT 

3494 NEXT 

3495 NEXT: RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4010 PRINT" <:clr>":print"the game is over 

I I I n 

4015 IFPT=4STHENPRINT"Y0U GOT ALL THE PO 
INTS (YOU WIN! !>":RETURN 

4020 PRINT»YOU SCORED "PT" POINTS GOOD 

EFFORT" 
4990 RETURN 
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This game requires good timing. You are the pilot of a B19 Bomber trying 
to sink enemy ships. The graphics in this game are simple but effective. To 
illustrate this point, run the program. The plane is black, the ship is grey, 
and the water is dark blue. In order to see how these graphics are created, 
hit the RUN-STOP key. Type LIST 2060-2065. These two lines use the 
machine language graphics routine set up earlier in the program (loaded 
with DATA statements in line 2020) to draw the blue water. Try deleting 
line 2060 to see what is happening. Your ship will appear to "float." The 
plane is drawn in line 3120 and the ship is drawn in line 3300. Try using 
different Commodore characters to change the shape of the plane into a 
U.F.O. bomber or a rocket ship. The various sections of the program are 
identified by REMarks. If you would like to experiment with any of these 
routines, first save the correct version to disk, then change the version that 
is still in your computer's memory. If you wish to save a modified version of 
the program, make sure it has a different name than the original, e.g., AIR 
ATTACK2 instead of AIR ATTACK. 

To produce the plane (as in line 3120) press these keys: 

CTRL-0, CMDR-7, 2 spaces, CTRL-2, 2 CMDR-O's, 1 space, CTRL-1, 
CTRL-9, SHIFT-Enghsh pound sign, CTRL-0, 1 space, 1 {CSD}, 7 {CSL}, 
CTRL-9, SHIFT-Enghsh pound sign, 1 space, minus sign, 2 spaces, minus 
sign, 1 space. 

To produce the ship (as in line 3300) press these keys: 

CMDR-8, 3 spaces, CMDR-A, CTRL-R, 1 space, CTRL-0, CMDR-S, 1 {CSD} 
6 {CSL}, CMDR-asterisk, CTRL-9, 5 spaces, CTRL-0, SHIFT-pound sign. 

The characters in 3180 and 3230 can be made with a CMDR-I. 
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REM ««**«*««*«**«*«***** 
REM »«* »»* 
REM ** AIR ATTACK *« 
REM *«» *** 
REM ***«**««******»***** 



60SUB 1000: REM 
60SUB2000:REM 
G0SUB3000:REM 

gosub4000:rem 

END 



INSTRUCTIONS 

SETUP 

PLAY! 

•END! 



10 
11 
12 
13 
14 
ih 
20 
30 
40 
50 
60 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1030 P0KE53281 , 14: POKE53280, 14: PRINT" <CL 
R>" 

1040 PRINTTAB<11)"CBLK}*»* AIR ATTACK *» 
•" 

1050 PRINT: PRINT: PRINT 

1060 PRINT" IN THIS GAME YOU ARE A FIBHTE 
R PILOT. YOU SCORE BY HITTING ONE "S 
1065 PRINT"OF THE ENEMY SHIPS WITH ONE 

OF YOUR BOMBS AND SINKIN6IT. " 
1070 PRINT 

1080 PRINT"TO DROP A BOMB, SIMPLY PRESS 
ANY KEY ON THE KEYBOARD. YOUR SCORE 
1085 PRINT"FOR HITTING A SHIP WILL DEPEN 
D ON WHICH PART OF THE SHIP YOU HIT. " 
1090 PRINT 

1100 PRINT" IF YOU HIT THE LOWER DECK, YO 
U SCORE 10 POINTS. IF YOU HIT THE 
1105 PRINT"UPPER DECK, YOU SCORE 20 POIN 
IF YOU HIT THE SMOKE- STACK 
PRINT"YOU HAVE DONE VERY WELL, AND 
REWARDED WITH 30 POINTS." 
PRINT: PRINT 

PRINT"PRESS wRETURN* TO CONTINUE"; 
GETX«: IFX»< >CHR* ( 13) THENl 125 
PRINT" <CLR>" 

PRINTTAB(ll)"tBLK>»»» AIR ATTACK ** 




TS. 
1106 
ARE 

mo 

1120 
1125 
1130 
1135 
»■' 

1140 
1145 
BS. 
1150 



PRINT: print: PRINT 

PR I NT "YOU HAVE AN ARSENAL OF 15 BOM 
THE SPEED OF EACH SHIP WILL "; 
PRINT"VARY, SO MAKE EVERY SHOT CO 



UNT!" 

1155 print: PRINT: PRINT"GOOD LUCK!!!" 
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1160 PRINT: print: PRINT"PRESS *RETURN* TO 

CONTINUE"; 
1 170 GETX«: IFX«< >CHR« < 13) THENl 170 
1990 RETURN 

2000 : 

2001 :REM *** SETUP 

2002 : 

2020 PL0T=49152: F0RI=0T024: REAOC: POKEPLT 

+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,25S 

2025 DATA32,253,174,32 

2026 DATA158, 173,76, 170, 177 
2030 SLb15 

2050 PRINT" {CLR> " : P0KES3281 ,14: P0KES3280 
,14 

2060 SYSPLT, 0,22: PRINT" {RVS ON>{BLU> 



2065 SYSPLT, 0,23: PRINT" {RVS ON>{BLU> 

" S 

2090 AXsO:SX«33:SS=l 

2110 DEFFNCO ( X ) <=PEEK < 55296+FX+40»FY ) AND 1 
5 

2990 RETURN 

3000 : 

3001 :REM *»* PLAY 

3002 : 

3040 SYSPLOT, 0,24: PRINT" tWHTJ {RVS OFF>SH 
OTS LEFT: "SL" {CSL> "TAB < 18) "SCORE: "TS" {C 
SL> "; 

3050 G0SUB3090: REM PLANE 

3060 G0SUB3130: IFSL»OTHENRETURN 

3070 60SUB3270:REM SHIP 

3080 G0T03050 

3090 : 

3100 REM LINE 3110 CHECKS TO SEE IF THE 

PLANE IS AT -1. IF SO, THE 

3101 REM PLANE IS OFF THE SCREEN. AX 

REVERTS TO 33, THE RIGHT HAND 

3102 REM SIDE OF THE PICTURE. FROM THERE 

THE CYCLE BEGINS AGAIN. 
3110 AX=AX-1 : IFAX<0THENAXs33: SYSPLT, O, O: 
PRINT" {LT BLUJ {CSD> {CSL> CCSL> {CSL 

> {CSLl {CSL> {CSLl {CSL> "; 
3115 SYSPLT, AX, O 

3120 PRINT" {RVS OFF>{LT BLU> {WHT>^ {B 
LK>{RVS ON>r{RVS OFF> {CSD> {CSL> {CSL> {CS 
L> {CSL> {CSL} {CSL> {CSL> {RVS ON>r - -{RVS 
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OFF> 
3125 RETURN 

3130 IF FFOO THEN3160 

3140 eetx*:ifx»=""thenreturn 
3150 ff»i:fx=ax+3:fy=2:bc»i 

3160 BC«BC-i-l:IFBC<2THENRETURN 

3165 SYSPLT,FX,FY:PRINT"«RVS □FF>tLT BLU 

> '•; 

3166 BOO 
3170 FY«FY-«-l 
3175 CO™FNCO(0) 

3180 IFCO< >15ANDC0< >6THENSYSPLT, FX, FY: PR 
INT" tYB.>B," ; : RETURN 
3190 IFC0=6THEN3230 

3200 TS=TS+INT <22-FY+. 5) »10: IFFX-SX+4THE 
NTS-TS+10 

3210 SC«0:SYSPLT,SX, 20: PRINT" «RVS OFF>tL 
T BLU> {CSD> CCSL><CSL> CCSLXCSLXC 

SL>{CSL>{C8L> "; 
3220 SX»33:SS»l:SCsO 

3230 SYSPLT,FX-2, 20: PRINT" {WHT>« tRVS ON 

> <RVS OFF> «B<CSD>CCSL>tCSL>tCSL>{CSL>tR 
VS ON>M »,"; 

3235 F0RPA=1T050:NEXTPA 

3240 SYSPLT,FX-2, 20: PRINT" <RVS OFFXLT B 
LU> {CSD><CSL>{CSL>{CSL>{CSL> "; 

3250 FF=0:SL=a_-l 

3260 SYSPLOT, 0,24: PRINT" {WHT>{RVS C3FF>SH 
OTS LEFT:"SL"<CSL> "TAB < 18) "SCORE: "TS"<C 

SL> ";:return 

3270 SC=SC-H:IFSC<SSTHENRETURN 
3280 SC=0:SYSPLT,SX, 20: PRINT" <RVS OFF>tL 
T BLU> {CSD> {CSL><CSL> {CSL><CSL> {C 

3L.y CCSL} tCSL} " i 

3290 SX-SX+l: IFSX>33THENSX=0:SS»1+INT(3* 
RND(O)) 

3300 SYSPLTjSX, 20: PRINT" <BRY 3> rtRVS 
0N> tRVS OFF>-,{CSD>tCSL>tCSLJtCSL>tCSL>< 
CSL>{CSL>^<RV8 ON} tRVS OFF>r";:RETU 

RN 

3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4030 PRINT" {HO«E>": PRINT" CBLKJ THE GAME I 
8 OVER": PRINT" YOUR SCORE OF"TS"IS "; 
4040 IFTS<25THENPRINT»R0TTEN": RETURN 
4050 I FTS< 50THENPR I NT " BAD ! ! ! " : RETURN 
4060 IFTS<75THENPRINT"P00R ! ! " : RETURN 
4070 IFT8<100THENPRINT"FAIR ...": RETURN 
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4080 IFTS<150THENPRINT"G00D RETURN 
4090 IFTS<250THENPRINT"GREAT !!":RETURN 
4100 IFTS<450THENPRINT"FANTASTIC !!!":RE 
TURN 

41 lO PRINT»PERFECT !!!!": RETURN 
4990 RETURN 




/ 
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To play Picasso, you must have a brush (a joystick). It is always a good idea 
to play a game before you attempt an analysis. Load the program and type 
LIST -1000, and you will be able to see where the main sections of the 
program are located. Lines 1000 to 2000 print the instructions that you see 
before each run of the program. Next, list lines 3006-3009. Line 3006 
produces a small square of each of the Commodore colors, 3007 shows 
which letter must be pressed to change the color being drawn with, and 
3009 gives all the other commands available for use with the program 
(which are checked for later in lines 3040 to 3090). 

Lines 3010-3020 check the position of the joystick to determine which way 
the line is being drawn. Take a particularly close look at lines 3013-3016. 
The variables X and Y are the vertical and horizontal position. In Une 301 3, 
if the position of the joystick (JX) evaluates to 8, then the new vertical 
position (NX) is increased by 1. In line 3014, if the joystick is moved down 
(IF JX=4) then the new vertical position (NX) is decreased by 1 (NX=X-1). 
The same thing is done for the horizontal coordinates in lines 3015 and 3016. 

Lines 3105-3120 issue a disk command to save the file (the picture as it 
presently appears on the screen) under a name that you specify. Lines 
3205-3220 allow you to load in a file from the disk in much the same way. 
Notice that if you choose option "Q" that you encounter a RETURN in line 
3070. This sends you back to line 50, which in turn sends you to the END 
routine beginning at line 4000. 

The big cross in line 3017 can be produced with a SHIFT-plus sign. 
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11 

12 
13 



REM »««***««*«*«****«*** 
REM *»* *»* 
REM ** ARTIST BOARD ** 
REM *** »♦* 



14 REM *»»«******««****««** 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 60sub2000:rem setup 
40 g0sub3000: rem play! 

50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1005 P0KE53281 , O: P0KE53280, 12 

1010 PRINT" {CLRJtSRY 3>"TAB<10) "»** ARTI 

ST BOARD »**" 

1025 PRINT: PRINT 

1030 PRINT"BY USIhH3 ARTIST BOARD AND YOU 
R CREATIVE" 

1031 PRINT"TALENT, YOU CAN CREATE MOSAIC 
-LIKE" 

1032 PRINT"PICTURES.": PRINT 

1040 print: PRINT"THE JOYSTICK IS USED TO 
MOVE THE CROSS" 

1041 PRINT"HAIR <YOUR PAINT BRUSH)." 

1042 PRINT: PRINT"PLUB THE JOYSTICK INTO 
GAME PORT #1" 

1043 PRINT 

1045 PRINT"THE TOOLS ARE THERE FOR YOU T 
O CREATE" 

1046 PRINT"SOME COLORFUL MASTERPIECES... 
.GO TO IT!" 

1050 PRINT: PRINT" YOU MAY SAVE A DRAWING 
ONTO DISK FOR" 

1051 PRINT"RECALL AT A LATER TIME-":PRIN 
T: PRINT: PRINT 

1060 PRINT"PRESS RETURN TO BEGIN PAINTIN 

G!" 

1065 GETANS*: IFANS«< >CHR« ( 13) THEN1065 
1990 RETURN 

2000 : 

2001 :REM ««* SETUP 

2002 : 

2005 SID=54272: F0RI«SIDT0SID-«-24: POKEI , O: 
NEXT:POKESID-i-5,9 
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2020 pl0t»49664 : for i =ot024 : readc : pokeplt 
+i,c:nexti 

2021 DATA32, 16, 194, 132 

2022 DATA253,32,16, 194 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,2S5 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 

2030 C0*=" <:BLK> <WHT> {RED> <CYN> <PUR> tSRNJ 
{BLU>{YEL>{0RN6>{BRWN>{LT REDXGRY 1>{GR 
Y 2><:LT GRN>{LT BLUXGRY 3>" 

2130 PDL=49152: F0RIs0T063: READC: POKEPDL-i- 

i,c:nexti 

2131 DATA162, 1 , 120, 173, 2, 220, 141,0, 193, 1 
69, 192, 141 , 2, 220, 169 

2132 DATA128, 141,0,220, 160, 128,234, 136, 1 
6, 252, 173, 25, 212, 157 

2133 DATAl , 193, 173, 26, 212, 157, 3, 193, 173, 
O, 220, 9, 128, 141,5, 193 

2134 DATA169,64,202, 16,222, 173,0, 193, 141 
,2,220, 173, 1,220, 141 

2135 DATA6, 193,88,96 
2990 RETURN 

3000 : 

3001 :REM **« PLAY 

3002 : 

3003 PRINT" {0RN6> tCLRJ " ; : X=20: Y=10 

3004 FDRI=1T021: PRINT" {RVS ON>{BLK> 



XT 

3005 SYSPL0T,0,21 

3006 PRINT" {RVS ON>{WHT> €BLK> {WHTJ 
<RED> CCYN> {PUR> {GRN> {BLU> CYE 

L> {0RN6> {BRWN> tLT RED J {GRY 1> t 
GRY 2> {LT GRN> {LT BLU> {GRY 3> tWH 
T> "S 

3007 PRINT" {RVS ON>{WHT> A B C D E F 
GHIJKLMNOP 

3008 PRINT" {RVS OFF> TYPE LETTER TO 
CHANGE COLOR 

3009 PRINT" R=RECALL S»SAVE Q=QUIT 
ZsERASE{BLK> " ; : P0KE56215, 1 : P0KE1943, 160 

3010 JVsPEEK (56321 ) AND15: JV=15-JV 

3011 JX»JVAND12: JY=JVAND3 

3013 IFJX=8THENXaX-i-l: IFX>39THENX>39 

3014 IFJX»4THENXbX-1 : IFX<0THENX»0 

3015 IFJY=2THENY=Y+l: IFY>20THENY=20 

3016 IFJY=1THENY=Y-1: IFY<OTHENY-0 

3017 SYSPLOT, X, Y: PRINT" {RVS 0N> ";:C"PEE 
K (55296-i-X+40*Y> AND15: SYSPLOT, X , Y: PRINT" { 



";:ne 




\ 
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RVS OFF>tWHT>+"; 

3018 F0RI=1T030: NEXTI : SYSPLOT, X, Y: PRINT" 

{RVS 0N>"MID*<C0*,C+1,1)" 

3020 GETKEY*: IFKEY*=""THEN3010 

3040 I FKE Y« >= " A " ANDKE Y*< = " P " THENPR I NTM I D 

* (CO*, ASC (KEY*) -ASC ( "A" ) +1 , 1 ) ; : S0T03010 

3050 IFKEY»="S"THEN3100 

3060 IFKEY*="R"THEN3200 

3070 IFKEY*='"Q"THENRETURN 

3080 I FKE Y*= " Z " THEN3003 

3090 G0T03010 

3100 SYSPL0T,0,23 

3101 PRINT" {RVS OFF> 

II 

3102 PRINT" {RVS OFF> 

"; 

3103 FI*="" 

3105 SYSPLOT, 0,23: INPUT" {WHT> SAVE AS WH 

AT FILE";FI*:IFFI*=""THEN3005 

3110 0PEN2, 8, 2, "6: "+FI*+" , S, W" 

3115 F0RI=0T0839: PRINT#2, CHR* (PEEK (55296 

4-I)AND15) ; : NEXTI 

3120 CL0SE2:G0T03005 

3200 SYSPLOT, 0,23 

3201 PRINT" {RVS OFFJ 

II 

3202 PRINT" {RVS OFF> 

II ■ 
* 

3203 FI*="" 

3205 SYSPLOT, O, 23: I NPUT"{WHT> RECALL WHA 
T FILE";FI*:IFFI*=""THEN3005 
3210 OPEN2,8,2,FI*+",S,R" 

3215 F0RI-0T0839: GET#2, A*: P0KE55296+I , AS 
C ( A«-iCHR« (O) ) : NEXTI 
3220 CL0SE2:G0T03005 
3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4010 PRINT" {CLR>{WHT>" 
4990 RETURN 





This game has a chance to show off a lot of the colors available on the 
Commodore 64. In it you are given three rows of colored "barrels" which 
are stacked on top of each other. The computer then scrambles the barrels 
and asks you to put them back into order! The problem is, you only have 
one square in which to move the barrels around. You can move either the 
rows or columns, but only one at a time. After loading Barrel of Fvm, type in 
LIST -2030. After the machine language routine, line 2030 draws the 
vertical bars across the screen that separate the rows of barrels. The actual 
designing of the board is done in lines 2120-2160. Next, list lines 3000-3045. 
This is the routine that gets input from the keyboard to determine where 
your next move will be. Line 3030 checks for column rotations and lines 
3035-3040 check for horizontal movement. From this section, you will be 
able to see where certain tasks are performed in the program. Remember 
that when you don't understand what a line does, try to remove it and see if 
anything in the program changes. Sometimes, this line by line method is the 
only way to decipher a program. You'll be surprised at how much you'll 
learn about programming along the way! 

The line in 2034 can be produced by a series of CTRL-C's. 
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10 REM 

11 REM **» *** 

12 REM ** BARREL OF FUN ** 

13 REM »♦* **» 

14 REM ******************* 

15 : 

16 : 

20 60SUB1000:REM INSTRUCTIONS 

30 G0SUB2000:REM SETLff> 

40 60SUB3000:REM PLAY! 

50 G0^JB4000:REM !END! 

60 END 

70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1005 P0KE53281 , 12: P0KE53280, 12 
1010 PRINT"tCLR>«LK>"5 

1020 PRINTTAB(10)"*»* BARREL OF FUN *»*" 

: print: PRINT 

1030 PRINT" IN BARREL OF FUN YOU WILL SEE 
THREE" 

1031 PRINT"COLUMNS OF SIX COLORFUL BARRE 
LSa THE" 

1032 PRINT"OBJECT OF THE GAME IS TO ALLI 
6N THE ROWS"; 

1033 PR I NT "SUCH THAT EACH ROW IS A SOLID 
COLOR a " 

1034 PRINT"THERE ARE ONLY TWO WHITE BARR 
ELSa THE" 

1035 PRINT"EMPTY SQUARE MUST EVENTUALLY 
COMPLETE" 

1036 PRINT"THE WHITE ROW." 

1040 print: PRINT"THE BOARD OF SQUARES WI 
LL BE MIXED UP," 

1041 PRINT"AND YOUR TASK IS TO UNSCRAMBL 
E IT. THE "; 

1042 PRINT"FINAL PRODUCT SHOULD HAVE ALL 
OF THE" 

1043 PR I NT "SQUARES OF ONE COLOR LINE UP 
IN A" 

1044 PRINT"HORIZONTAL ROW." 

1045 PRINT 

1050 PRINT"A SAMPLE OF HOW THE FINISHED 
PRODUCT" 

1051 PR I NT "SHOULD LOOK WILL BE SHOWN TO 
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YOU. " 

1052 PRINT 

1060 PRINT"PRESS RETURN TO CONTINUE." 
1065 GETANS*: IFANS«< >CHR« < 13) T»£N1065 

1070 PRINT" {CLRJtBLKJ"; 

1071 PRINTTAB(IO) "*** BARREL OF FUN »*»" 
: PRINT: PRINT 

1080 PRINT"EACH COLUMN OF SQUARES (COLUM 
NS 1,2,3)" 

1081 PRINT"CAN BE ROTATED VERTICALLY BY 
ENTERING" 

1082 PRINT"THE NUMBER OF THE COLUMN YOU 
WISH TO" 

1083 PRINT"ROTATE. " 

1090 print: PRINT" YOU CAN MOVE COLORED SQ 
UARES INTO THE" 

1091 PRINT"EMPTY SQUARE BY USIN6 THE Fl 
AND F3" 

1092 PRINT"KEYS. IF THE COLORED SQUARE 
IS TO BE" 

1093 PRINT"MOVED TO THE EMPTY SQUARE ON 
ITS RIGHT" 

1094 PR I NT "THEN PRESS F3. " 

1095 PRINT: PRINT" IF THE COLORED SQUARE I 
S TO BE MOVED TO" 

1096 PRINT"THE EMPTY SQUARE ON ITS LEFT 
THEN PRESS" 

1097 PRINT"F1." 

1100 PRINT 

1101 PRINT"PRESS RETURN TO CONTINUE." 
1 105 GETANS*: IFANS«< >CHR« (13) THENl 105 

1120 PRINT" tCLR>tBLK>"S 

1121 PRINTTAB(IO)"*** BARREL OF FUN ***" 
: PRINT: PRINT 

1130 PRINT"NOTE THAT IN THE FINAL SOLUTI 
ON ALL" 

1131 PRINT"HORIZONTAL ROWS MUST BE THE S 
AME COLOR." 

1132 PRINT: PRINT" IT DOESN'T MATTER WHERE 
THE ROW IS" 

1133 PRINT"LOCATED, AS LONG AS ALL OF TH 
E COLORS" 

1134 PRINT"WITHIN THE ROW ARE THE SAME." 

1140 PRINT 

1141 PRINT"PRESS RETURN TO CONTINUE." 
1 145 GETANS«: IFANS«< >CHR« ( 13) THENl 145 
1990 RETURN 

2000 : 

2001 :REM *«* SETUP 

2002 : 
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2005 DIMBA (3, 6) , CO* (6) : F0RI-0T06: READCO* 
(Da NEXT 

2006 DATA"{GRY 2> " , " <BLK> " , " <RED> " , " tLT 
GRN> " , " tBLU> " , " tCYN> " , " CWHT> " 

2010 F0RI=1T06: F0RJ-1T03: BA ( J, I ) =1 : NEXT: 
next: BA (3, 6) =0: BX=3: BY=6 

2020 PL0T=49152: F0RI=0T024: READC: PQKEPLT 
+I,C:NEXTI 

2021 DATA32, 16, 192, 132 

2022 DATA253,32,16,192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2030 PRINT" tCLR>{YEL>" 

2034 F0RI=0T018STEP3: SYSPLOT, 11,1: PRINT" 

{RVS ON} ":next 

2040 F0RI°1T03:60SUB2500:NEXT 

2100 SYSPLOT, O, 20: FC»RI=1T03: PRINT" <RVS O 

FF> 
" : NEXT 

2105 SYSPLOT, 5, 20: PRINT" {BLKJ«< THIS IS 

THE FINAL PATTERN »>" 
2110 FORPA= 1 T02000 : NEXTRA 

2115 SYSPLOT, 0,20: PRINT" {RVS OFF> 

It 

2116 SYSPLOT, 3, 20: PRINT" €BLK>«< I'M NOW 
SCRAMBLING THE BOARD »>" 

2120 F0RN=1T020+INT < 10*RND <0) ) 

21 30 IFBX=3THENRX=2: 60T02140 

2131 IFBX«1THENRX»2:G0T02140 

2132 RX=1+2»INT<2»RND<0)) 

2140 F0RL=1T01+INT<5»RND<0> ) :F0RM=1T06:B 
A (RX , M-1 > =BA (RX, M) : NEXTM 

2141 BA (RX , 6> =BA (RX , O) : I»RX : NEXTL: 60SUB2 
500 

2145 BA(BX,BY)«BA(RX,BY) :BA(RX,BY)=0 

2150 I=BX:J=BY:eOSUB2510 

2155 BXsRX : I=BX : J»BY: G0SUB2510 

2160 NEXTN: RETURN 

2200 RETURN 

2230 FORN» 1 T020+ I NT ( 1 0*RND ( O > ) 

2235 I FBXa3THENRX»2 : GOTO 

2500 F0RJS1T06: G0SUB2510: NEXTJ : RETURN 

2510 PRINTCO* (BA ( I , J > > ; 

2520 F0RK»0T01: SYSPLOT, (I+l)«6, J*3-2-i-K:P 
RINT"{RVS 0N> "s:NEXTK: RETURN 

2990 RETURN 

3000 : 

3001 :REM *«* PLAY 




126 



3002 : 

3010 SYSPLOT, O, 20: PRINT" {RVS CW^F> 

3011 SYSPLOT, 6, 20: PRINT" {BLK> {RVS 0N> T 
YPE 1 TO ROTATE COLUrm 1 " 

3012 PRINTTAB<6)"{RVS 0N> TYPE 2 TO ROT 
ATE COLUHN 2 " 

3013 PRINTTAB(6)"{RVS 0N> TYPE 3 TO ROT 
ATE COLUMN 3 " 

3014 PRINTTAB(6)"{RVS ONJFl SHIFT LEFT 
F3 SHIFT RIGHT"; 

3020 6ETKE Y« : I FKE Y*= " " THEN3020 

3030 IFKEY»=" 1 "0RKEY*="2"0RKEY«'="3"THEN3 

100 

3035 I FKEY«» " tF 1 > " THEN3050 
3040 IFKEY*"" tF3> "THEN3075 
3045 G0T03020 

3050 RXeBX+1 : IFRX»4THEN3020 

3055 BA (BX , BY) =BA <RX, BY) : BA (RX , BY) sO 

3060 i«BX: j«by: gosub2510: bxbrx: i»bx: j-by 

:60SUB2510 
3065 60T03500 

3075 RX»BX-l:IFRX=0THEN3020 

30S0 BA (BX , BY) »BA (RX , BY) : BA (RX , BY) »0 

3065 I =BX : J«BY : G0SUB25 1 O : BX^RX : I »BX : J^BY 

:G0SUB2510 

3090 G0T03500 

3100 RXsVAL(KEY«) 

31 10 F0RM«1T06: BA (RX, M-1 ) =BA <RX, M) : NEXTM 

:ba(RX,6)sBA<rx,o) : i»rx:gosub2500 
3120 ifrxsbxthenby-by-1 : ifby»0thenby«6 

3500 BA(BX,BY)=6:F0RI»1T06 

3510 IFBA (1,1) sBA (2,1) ANDBA (2, I ) «BA (3, I ) 

THENNEXTI: RETURN 

3520 BA ( BX , BY ) «0 : TRY-TRY+ 1 : G0T03020 
3990 RETURN 0B /I lli It 

4000 : mm 11 III \ ^ 

4001 :REM «** END 

4002 : 
4990 RETURN 
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This is a two player game in which you try to draw a line longer than your 
opponent. If you collide with either the trail of your opponent or one of the 
borders, you lose. List through line 2026. There is a general purpose sound 
routine in lines 2001-2026. Line 2015 clears out 25 bytes of memory that 
the SID chip uses (POKEing each with a 0), then reads in the DATA 
elements in lines 2021-2026. Lines 2100-2135 create the "countdown" 
routine. This is just the kind of routine that can be transferred easily from 
game to game. List lines 3000-3100. Line 3010 creates the inverse yellow 
circle and the inverse blue diamond that are used as the player pieces. Line 
3020 reads the keyboard and checks to see which key is being pressed. Note 
that if no key is being pressed (IF KEY$ = ""), the program branches to the 
NEXT in line 3050, skipping all the IF statements in lines 3030-3043. This 
program has a lot of routines that perform specific functions. As always, feel 
free to experiment with the routines if you don't quite understand what 
each of them does. 

In Hne 3010, the diamond can be produced with a SHIFT- Z, and the circle 
with a SHIFT-Q. 
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10 REM ******************** 

11 REM *** *** 

12 REM ** BLOCK 'EM 

13 REM **» 

14 REM ******************** 

15 : 

16 : 

20 g0sub1000:rem instructions 
30 gosub200o:rem setup 

40 G0SUB3000:REM PLAY! 
50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM **« INSTRUCTIONS 

1002 : 

lOlO PRINT" <CLR> " : P0KE53281 , 12: P0KE53280 
1020 PRINTTAB<12)"{BLU>*** BLOCK 'EM *** 



1030 print: PRINT: PRINT 

1031 PRINT" IN THIS GAME, TWO PLAYERS CON 
TROL THE" 

1032 PRINT"CREATION OF A LINE. " 
1035 PRINT 

1040 PRINT"THE FIRST PLAYER WHOSE LINE H 
ITS A WALL" 

1045 PRINT"OR THE OTHER PLAYER'S LINE, L 
OSES THE" 

1046 PRINT"GAME. " 

1050 print: PRINT"PLAYER #1 DIRECTION 
PLAYER #2": PRINT 

1051 PRINT" W UP 
I":PRINT 

1052 PRINT"A S LEFT RIGHT 
J K": PRINT 

1053 PRINT" Z DOWN 
M" 

1090 print: print: PRINT"PRESS RETURN WHEN 
READY TO CONTINUE" 
1095 GETANS*: IFANS*< >CHR* ( 13) THEN1095 
1990 RETURN 

2000 : 

2001 :REM *♦* SETUP 

2002 : 

2005 SID>>54272 



130 



2010 POKE53280,0 

2015 F0RI»SIDT0SID+24: POKEI , O: NEXT 

2016 POKESI+24, 15: POKES I +5, 88: POKES I -1-6, 1 
95 

2020 PL0T=49 1 52 : FOR I =0T024 : RE ADC : POKEPLT 
+I,C:NEXTI 

2021 0ATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA152, 170,164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2100 PRINT" €CLR> " : F0RI=5T01STEP-1 

21 lO SYSPLT, 19, 13:PRINT"{RVS 0N>{BLK>"X 
2130 F0RPAalT0300:NEXTPA 
2135 NEXT 

2140 SYSPLT, 19, 13: PRINT" " 

2150 X1»1+INT (5*RND <0> > : Y1»6+INT (6*RND (O 
)) 

2151 X2»39-INT (5*RND (O) ) : Y2s6+INT (6«RND ( 
O) ) 

2152 Dl»4:D2s3 
2990 RETURN 

3000 : 

3001 :REM *»* PLAY 

3002 : 

3010 SYSPLT, Xl,Yl: PRINT" {RVS ON>{BLUJ*"; 
: SYSPLT, X2, Y2: PRINT" {RVS 0N> tYEL>«<" ; 
3015 NT=5+ ( (M0<35) ♦ <30-INT (MO/IS) ♦IS) ) 
3020 FOR 1=1 TONT : GETKE Y« : I FKE Y*= " " THEN305 
O 

3030 IFKEY*="A"THEND1=3 

3031 IFKEY«»"S"THEND1»4 

3032 IFKEY«B"W"THENDlsl 

3033 I FKE Y*= " Z " THENO 1 =2 

3040 I FKE Y*= " J " THEND2=3 

3041 IFKEY*="K"THEND2=4 

3042 I FKE Y*= " I " THEND2= 1 

3043 IFKEY*="M"THEND2=2 
3050 NEXT 

3100 0ND1G0T031 10, 3120,3130, 3140 
3110 Yl=Yl-l:G0T03150 
3120 Yl=Yl+l:G0T03150 
3130 Xl=Xl-l:eOT03150 
3140 XlsXl-i-1 

3150 IFXKOORXl >390RY1< lORYl >24THENWL=2: 
RETURN 

3155 IFPEEK ( 1024-i-X 1+40«Y1 ) < >32THENWL«2: R 
ETURN 

3200 OND2BOT03210, 3220, 3230,3240 
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32 lO Y2=Y2-l:eOT03250 
3220 Y2=Y2+l:eOT03250 
3230 X2=X2-l:G0T03250 
3240 X2»X2+1 

3250 I FPEEK ( 1 024+X2+40»Y2 ) < >32THENIi«-= 1 : R 
ETURN 

3255 IFX2<00RX2>390RY2< iORY2>24THENWL=l : 
RETURN 

3260 POKESID, O: POKESID+1 , 90: POKESID+4, 33 
: FORD= 1 T050 : POKES I D+4 , 32 
3300 M0»ri0-i-l:G0T03010 
3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4003 POKESID+1, 

4010 P0KESID+24,0:PRINT"{H0I«IE>{RVS OFF>t 

BLK>THE GAME IS OVER...." 

4020 PRINT"PLAYER »"WL"HAS WON THE GAME 

III" 

4990 RETURN 




This game is indeed an intellectual challenge. Random guessing will rarely 
net you the correct solution. It is a good idea to conceptualize how you 
intend to achieve your goal. This game makes use of some difficult graphic 
and logic routines, so don't worry if you don't understand what every section 
does. List through line 3100. Line 3045 reads the keyboard to see which 
number has been chosen. Line 3076 checks to see if that box is occupied. 
This is a good example of a flag, a technique used in writing long programs. 
If the value in BO(IJ) is equal to 1, then that box is occupied. Moving to a 
square that is not occupied will cause BO(IJ) to evaluate to a -1 and send 
control to line 3077, then back to 3030 for another number. Line 3080 
determines which of the subroutines in Unes 311 0-3193 the program is 
sent to. Note that there are nine subroutines in this section, one for each 
square. This is exactly the type of situation where an ON/GOTO structure 
is useful — one subroutine for each possible answer. The shapes used on the 
board are drawn in lines 3500-3525. Experiment with different shapes to 
give your game board a unique appearance. 

The diamond shape may be produced with a SHIFT-Z. 
The circle shape may be produced with a SHIFT-Q. 

The thick lines in 3520 can be made with a CMDR-I, and with a CMDR-C, 
CMDR-V combination. 
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10 REM *»»»»»»»***«**♦***♦* 

11 REM *** *** 

12 REM ** BRAIN TEASER *» 

13 REM **» *** 

14 REM ******************** 

15 : 

16 : 

20 60SUB10oo:rem instructions 

30 G0SUB2000:REM SETUP 
40 60SUB3000:REM PLAY! 
50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1010 PRINT" <CLR> tWHT> " : P0KE532ei , 14: POKE 
53280,0 

1020 PRINTTABdO)"*** BRAIN TEASER ♦**" 

1030 PRINT 

1031 PRINT" IN THIS SAME YOU ARE GIVEN A 
3 BY 3 GAME"; 

1032 PRINT"BOARD WITH ONE OCCUPIED SPACE 
(THE" 

1033 PRINT"CENTER) . THE BOARD WILL LOOK 
LIKE THIS" 

1040 PRINT: PRINT" tBLU> €RVS 0N> <RVS 
OFF> tRVS 0N> CRVS OFF> tRVS ONJ {RVS OF 
FJ" 

1041 PRINT 

1042 PRINT" tRVS ON> tRVS OFF! tRVS O 
N>i».tRVS OFF} {RVS 0N> {RVS DFF>" 

1043 PRINT 

1044 PRINT" {RVS ON> {RVS OFF> {RVS O 
N> {RVS OFF> {RVS ON? {RVS OFF>" 

1045 PRINT 

1050 PRINT" {WHTJ THE TRICK IS TO MOVE THE 
PIECES SO THAT" 

1051 PRINT"THE GAME BOARD WINDS UP LOOKI 
NG LIKE" 

1052 PRINT"THIS:": PRINT 

1060 PRINT" {BLU> {RVS ON>*{RVS OFF> { 
RVS ON>«{RVS OFF> {RVS ON>«{RVS OFF> 

{WHT>AND{BLU> {RVS 0N> {RVS OFF> 

{RVS ONJ {RVS OFF> {RVS 0N> {RVS OFFJ" 

1061 PRINT 

1062 PRINT" {BLU> {RVS 0N>4»{RVS OFF> { 
RVS 0N> {RVS OFF> {RVS 0N>4.{RVS OFF} 
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<:WHT>NOT LIKE CBLU>{RVS 0N> CRVS OFF> 
€RVS 0N> {RVS OFF> <RVS 0N> <RVS OFF>" 

1063 PRINT 

1064 PRINT" <BLU> {RVS 0N>4.{RVS OFF> { 
RVS ON>«.CRVS OFF> CRVS 0N>4.{RVS OFF> 

€WHT>THIS: {BLU> {BLUXRVS 0N> {RVS 

DFF> {RVS 0N> {RVS OFF> {RVS ONJ {RVS 
FF>" 

1070 PRINT: PRINT: PRINT" {WHT>PRESS RETURN 

WHEN READY TO CONTINUE. "5 
1075 GETANS«: IFANS«< >CHR$ < 13) THEN1075 

1080 PRINT" {CLRJ {WHT> " 

1081 PRINTTAB(IO) "*** BRAIN TEASER *«*" 

1091 PRINT 

1092 PR I NT "YOU MAY ONLY MOVE TO AN OCCUR 
I ED SPACE" 

1093 PRINT" (A SPACE WITH A « ON IT). WH 
EN YOU MOVE"; 

1094 PRINT", CERTAIN SQUARES WILL REVERSE 
THEIR" 

1095 PR I NT "STATE (CHANGE FROM A ^ TO A B 
LANK, OR" 

1096 PRINT"VICE-VERSA) . " 

1099 PRINT 

1100 PRINT" IF YOU MOVE TO A CORNER, ALL 
OF THE ADJACENT SQUARES REVERSE." 

1102 PRINT" IF YOU MOVE TO THE MIDDLE OF 
A SIDE, ALL"; 

1103 PRINT"OF THE SQUARES ON THAT SIDE W 
ILL FILL UP"; 

1104 PRINT", AND IF YOU CHOOSE THE CENTE 
R SQUARE," 

1105 PRINT"THAT BOX AND THE FOUR MIDDLE 
BOXES WILL ALL BE REVERSED." 

1110 PR I NT : PR I NT : PR I NT "{WHT> PRESS RETURN 

WHEN READY TO CONTINUE."; 
1 120 GETANS*: IFANS*< >CHR« ( 13) THENl 120 
1125 PRINT" {CLR>{WHT>" 

1130 PRINTTAB(IO)"*** BRAIN TEASER ***" 

1131 PRINT 

1132 PRINT"HERE IS A QUICK REVIEW OF THE 
VARIOUS" 

1133 PRINT"MOVES, AND THE RESULTING REVE 
RSALS....": PRINT 

1140 PRINT" {BLU> {RVS ONJi»{RVS OFF> { 
RVS ON>*{RVS OFF> {RVS 0N> {RVS OFF> 

{RVS 0N1*{RVS OFF> {RVS ON>«{RVS OFF> { 
RVS ON>«{RVS OFF> {RVS 0N> {RVS OFF> 
{RVS ON>*{RVS OFF> {RVS 0N> {RVS OFF>" 

1141 PRINT 
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1142 PRINT" «BLU> tRVS ON>*CRVS OFFJ t 
RVS ON>*{RVS OFPy {RVS 0N> {RVS OFF> 

{RVS 0N> CRVS OFF> {RVS 0N> CRVS OFF> <. 
RVS 0N> tRVS OFF> CRVS ON>»{RVS CFFJ 
tRVS ON>«{RVS OFFJ {RVS ONJ*{RVS OFF!" 

1143 PRINT 

1144 PRINT" {BLU> {RVS ONJ {RVS OFF> { 
RVS ONJ {RVS OFF> {RVS ONJ {RVS OFF> 

{RVS 0N> {RVS OFF> {RVS ONJ {RVS OFF> { 
RVS 0N> {RVS OFF> {RVS ON> {RVS OFF> 
{RVS ON}*{RVS OFF> {RVS ONJ {RVS OFF>" 
1148 PRINT" {WHT>" 

1150 PRINT"THE * DENOTES THE MOVE POSITI 
ON AND THE" 

1131 PRINT" '*'S DENOTE THE PIECES THAT W 
I LL BE " 

1152 PRINT"FLIPPED. THE PIECE AT WI 
LL ALSO BE" 

1153 PRINT"FLIPPED. THE BOARD IS DESIGN 
ATED LIKE THIS: ": PRINT 

1160 PRINT" {BLU> {RVS 0N>1{RVS OFF> { 
RVS 0N>2{RVS OFF> {RVS ON>3{RVS OFF>" 

1161 PRINT 

1162 PRINT" {RVS 0N>4{RVS OFF> {RVS O 
N>5{RVS OFF> {RVS 0N>6{RVS OFF>" 

1163 PRINT 

1164 PRINT" {RVS 0N>7{RVS OFF> {RVS O 
N>8{RVS OFF> {RVS 0N>9{RVS OFF>" 

1170 PRINT: PRINT" {WHT>PRESS RETURN WHEN 
READY TO CONTINUE."; 

1 1 75 GET ANS« : I FANS«< >CHR« (13) THEN 1 1 75 
1990 RETURN 

2000 : 

2001 :REM *♦* SETUP 

2002 : 

20 1 O D I MBO (3,3): FOR 1=1 T03 : FOR J = 1 T03 : BO ( I 
, J ) »-l : next: NEXT: BO (2, 2) »1 

2020 PL0T=49152: F0RI=0T024: READC: POKEPLT 

••-i,c:r>EXTi 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173,76, 170, 177 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3010 PRINT" {CLR> " : F0RI=1T03: F0RJ=1T03: GO 
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SUB3505: NEXT: NEXT 

3020 FCWI=1 T03: F0RJ=1T03: IFBO ( I , J > =10R (I 
=2ANDJ»2) THENNEXT: NEXT: WL=1 : RETURN 

3025 f0ri=1t03:f0rj=1t03: ifbod, j)=-1the 
nnext: next: wl»o: return 

3030 SYSPLOT,0, 19: F0RI=1T04: PRINT" {RVS O 
FF> 



3031 NEXT 

3035 SYSPLOT,0, 19: PRINT" {BLK> ENTER A P 
OSITION (1-9) OR" 

3040 PRINT" RETURN TO QUIT ===> {RVS ON 

> CRVS OFFXCSLJ"; 

3045 GETKE Y* : I FKEY«= " " THEN3045 

3050 PRINTKEY* 

3060 I FKE Y*=CHR« (13) THENRETURN 

3075 KEY=VAL <KEY«) : I=1+INT < (KEY-1 ) /3) : J= 
KEY-3*<I-1) 

3076 I FBO ( I , J ) » 1 THEN30B0 

3077 PRINT" MOVE ONLY TO AN OCCUPIED SQ 
UARE" 

3078 F0RPA=1T01500:NEXT:B0T03030 

3080 0NKEYGDT031 10, 3120, 3130, 3140, 3150, 3 
160, 3170, 3180, 3190 



3110 


1=1: 


: J=l: 


:60SUB3500 


3111 


1=1: 


:J=2: 


:60SUB3500 


3112 


1=2: 


:j=i: 


: G0SUB3500 


3113 


1=2: 


:j=2: 


: G0SUB3500: G0T03020 


3120 


1=1: 


:j=1: 


:G0SUB3500 


3121 


1=1: 


: J=2: 


: G0SUB3500 


3122 


1=1: 


: J=3: 


: G0SUB3500: G0T03020 


3130 


1=1: 


:J=2: 


:G0SUB3500 


3131 


1=1: 


: J=3: 


:G0SUB3500 


3132 


1=2: 


:j=2: 


:G0SUB3500 


3133 


1=2: 


:J=3: 


: G0SUB3500: G0T03020 


3140 


1=1: 


:J=l; 


:G0SUB3500 


3141 


1=2: 


: J=l: 


:G0SUB3500 


3142 


1=3: 


: J=l; 


: G0SUB3500: G0T03020 


3150 


1=1: 


:j=2: 


:G0SUB3500 


3151 


1=2: 


:J=l: 


: G0SUB3500 


3152 


1=2: 


:J=2: 


: G0SUB3500 


3153 


1=2: 


: J=3: 


: GOSUB3SOO 


3154 


1=3: 


:J=2: 


: G0SUB3500: G0T03020 


3160 


1=1: 


: J=3. 


; G0SUB3500 


3161 


1=2: 


:j=3: 


: GOSUB3500 


3162 


1=3: 


:j=3: 


: G0SUB3500: 60T03020 


3170 


1=2: 


' J=i: 


;60SUB3500 


3171 


1=2: 


:J=2: 


;G0SUB3500 


3172 


1=3: 


:j=1: 


:G0SUB3500 


3173 


1=3: 


;j=2: 


: G0SUB3500: G0T03020 
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3180 1=3: J=l:G0SUB3500 

3181 1=3: J»2:G0SUB3500 

3182 1=3: J=3: G0SUB3500: 60T03020 

3190 I=2:J=2:G0SUB3500 

3191 I=2:J=3:G0SUB3500 

3192 I=3:J=2:G0SUB3500 

3193 1=3: J=3:G0SUB3500:G0T03020 
3500 BO(I,J>=-BO(I, J) 

3505 PRINTMID«("{YEL> {BLU>'SBO(I, J>+2, 1 

>; 

3510 I X=4*I : JX=8»J : F0RI2=I XTOI X+3: SYSPLO 
T,JX, 12: PRINT" €RVS 0N> ";:IMEXTI2 
3520 I FBO < I , J ) =- 1 THENSYSPLOT ,JX+3,IX+1:P 
RINT" {BLK> {RVS 0N> m {CSD> {CSL> {C8L> " ; : 
RETURN 

3525 SYSPL0T,JX+2, IX: PRINT" tBLUXRVS 0N> 
«■ 4.{CSD>CCSL>CCSL>CCSL>«4.{CSD>{CSL>{CSL 
>4^4|»{CSD>{CSL>{CSL>{CSL>« «"; 
3540 RETURN 
3990 RETURN 

4000 : 

4001 :REM «*« END 

4002 : 

4005 SYSPL0T,0,21 

4010 PRINT" tWHT>{RVSOFF> THE GAME IS 
VER ! ! ! " 

4020 IFWL=OTHENPRINT" AND YOU LOST... S 
ORRY" 

4030 IFWL=1THENPRINT" AND YOU WON.... G 
REAT! ! •" 

4040 PRINT" {HOME>"; 
4990 RETURN 
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(Requires Paddles) 



What a challenge! This game tests your quickness and dexterity. The game is 
similar to some of the arcade games you see. With a little practice, YOU 
could write a program like this. This program requires that you have a 
paddle (a joystick won't work) to control the movement of the paddle in the 
game. Listing lines 2000-2999 will show the setup section of the game, and 
the various subroutines are labeled so that their functions are more easily 
understood. Notice that the sections following lines 2100, 2200, and 2300 
each perform a function specified by the REMark statement in each of those 
lines. Although some programmers don't use REM statements, it is usually 
considered good practice to do so, especially if you are working on a long 
program or there will be long periods of time between your work sessions. 
This lets you pick up where you left off with a minimum of confusion about 
how your program works. 

The line in 2220 can be produced with a series of CMDR-I's. The circle can 
be produced with a SHIFT-Q. 
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«** 

BRICK WALL ** 



10 REM 

11 REM *«« 

12 REM ** 

13 REM »*» ♦** 

14 REM 

15 : 

16 : 

20 60SUB1000:REM INSTRUCTIONS 

30 gosub20oo:rem setup 

40 60SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1 005 P0KE53280 ,14: P0KE5328 1 , 6 

1010 PRINT"<CLRJ«CYN>"TAB(12)"*»* BRICK 

WALL *»*" 

1020 PRINT: PRINT 

1030 PRINT" IN THIS GAME, YOU WILL BE PRE 
SENTED" 

1031 PRINT"WITH A WALL OF BRICKS AT THE 
TOP OF THE" 

1032 PRINT"SCREEN, AND A PADDLE AT THE B 
OTTOM. " 

1033 PRINT"THE SAME PADDLE (PORT 2) IS U 
SED TO HIT" 

1034 PR I NT "A ROCK INTO THE WALL OF BRICK 
Sa " : PRINT 

1040 PRINT"WHEN THE ROCK HITS A BRICK, I 
T WILL" 

1041 PRINT"DESTROY IT AND POINTS WILL BE 
ADDED TO" 

1042 PRINT" YOUR SCORE. ": PRINT 

1050 PRINT"YOUR MISSION, SHOULD YOU ACCE 
PT, IS TO" 

1051 PRINT"DESTROY AS MUCH OF THE BRICK 
WALL AS" 

1052 PRINT"POSSIBLE. ": PRINT: PRINT 

1053 PRINT"YOU ARE ALLOWED ONLY FIVE MIS 

SESa " 

1054 PRINT: PRINT"PRESS RETURN TO BEGIN P 
LAY. " 

1060 SETANS*: IFANS«< >CHR» ( 13) THEN1060 
1990 RETURN 
2000 : 
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2001 :REM **» SETUP 

2002 : 

2010 sid=54272: f0ri«sidt0sid-t-24: pokei , o: 
next: pokesid+s, 9 

2020 pl0t=49664: fori=ot024: readc: pokeplt 
+i,c:nexti 

2021 DATA32, 16, 194, 132 

2022 DATA253,32, 16, 194 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173,76, 170, 177 
2030 G0SUB2100 

2040 OIMDIR (6) : F0RI»1T06: REAODIR ( I ) : NEXT 
:DATA-1.5,-1,-.5,.5,1, 1.5 

2050 PDL=49152: F0RI=0T063: READC: POKEPDL+ 
I,C:NEXTI 

2051 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69, 192, 141 , 2, 220, 169 

2052 DATA128, 141,0,220, 160, 128,234, 136, 1 
6, 252, 173, 25, 212, 157 

2053 DATAl, 193, 173,26,212, 157,3, 193, 173, 
O, 220, 9, 128, 141 , 5, 193 

2054 DATA169,64,202, 16,222, 173,0, 193, 141 
, 2, 220, 173, 1 , 220, 141 

2055 DATA6, 193,88,96 
2090 RETURN 

2100 REM *** DO BACKGROUND 
2105 PRINT" {CLR>" 

21 10 F0RI=3T01 1STEP2: K= ( I-l ) /2: K«K--2»INT 
<K/2) 

21 15 PRINTMID* ( " <CYN> {RED> " , K+1 , 1 ) ; : FDRJ 
»0T036STEP4:SYSPL0T,J, I:PRINT"{RVS 0N> 

";:nextj 

2120 PRINTMID« ( " {CYN> {RED> " , 2-K, 1 ) ; : FORJ 

=2t03sstep4 : sysplot , j , i : pr i nt " < rvs 0n> 
";:nextj 

2125 NEXTI 

21 30 F0RI»56256T056295: POKEI , 1 : NEXT 
2190 RETURN 

2200 REM »** DRAW PADDLE 

2201 SYSPDL: P= (236-PEEK (PDL-i-258> ) /6: BU=P 
EEK(PDL+261) 

2202 IFP<OTHENP=0 

2203 IFP>34THENP»34 
2210 IFP»PPTHENRETURN 

2215 SYSPLOT, PP, 23: PRINT" {RVS OFF> 





2220 SYSPLOT, P, 23: PRINT" tRVS OFFXWHTJ. 
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2225 PP=P: RETURN 

2300 REM *«* MOVE BALL 

2305 X2SBX-4-DI <BA> : Y2=BY-i-BD 

2310 IFX2»>0ANDX2<=39THEN2315 

231 1 X2=BX-DI (BA) : BA=7-BA 

23 1 2 POKES I D+ 1 , 220 : POKES I 0+4 , 33 : POKES I 0+ 
24, 15: F0RPA=1T030: NEXT 

2313 P0KESID-i-l,0:P0KESID+4,32 

2315 IFY2=>0THEN2320 

23 1 6 Y2=B Y-BD : BD=-BD : BF= I 

23 1 7 POKES I D+ 1 , 200 : POKES I D+4 , 33 : POKES I D+ 
24, 15:F0RPA=1T030:NEXT 

2318 P0KESID-i-1,0:P0KESID-(-4,32 

2320 I F Y2 >23THENSYSPL0T , BX , BY : PR I NT " tRVS 
OFF> ";:G0T03060 

2325 CH=PEEK ( 1 024+X2+40»Y2 ) : I FCH< > 1 2 1 THE 
N2330 

2326 POKESID+l , 240: POKESID-i-4, 33: POKESID-i- 
24, 15: F0RPA=1T030: NEXT 

2327 P0KESID+1,0:P0KESID+4,32 

2328 bd=-bd: bf=o: BA=INT ( X2) -INT (PP> +1 : PB 
=PB+l: IFPB=7THENBD=-2 

2329 SYSPLOT,BX, BY: PRINT" €RVS OFF> "s:SY 
SPLOT, X2, Y2: PRINT" tWHTJn" ; : BXsX2: BY='Y2: 6 
0T03040 

2330 IFCH=32THEN2340 

2331 X3=2*INT < X2/2) : SYSPLOT, X3, Y2: PRINT" 
CRVS OFF} ";:SC=SC+INT(5-(Y2-3)/2) 

2332 POKESID+l , 10: POKESID+4, 33: POKESID+2 
4,15: FORPA= 1 T030 : NEXT 

2333 POKESID-(-l,0: POKESID+4, 32 

2334 IFSC=>300THEN3065 

2335 IFBD<00RBF=1THENBD=-BD 

2336 SYSPLOT, 11, 24: PRINT" tRVS ON>{CYN>"S 

c; 

2340 IFPEEK(1024+BX+40*BY)<>81THEN2345 

2341 SYSPLOT, BX, by: PRINT" {RVS OFF> "; 
2345 SYSPLOT, X2,Y2: PRINT" <RVS OFF>tWHT>« 
" ; : BX»X2: BY=Y2: S0T03040 

2990 RETURN 

3000 : 

3001 :REM ««* PLAY 

3002 : 

3005 SYSPLOT, 0,24: PRINT" {RVS ON>{CYN> 
SCORE: O BALLS LEFT: "i 

3006 P0KE56295 , 3 : P0KE2023 , 1 60 

3010 F0RB=1T05: SYSPLOT, 31 , 24: PRINT" {RVS 
ON>{CYN>"5-B5 

3015 F0RJ=lT0100:e0SUB2200: IFBU=255THENN 
EXTJ 
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3020 BX=10+INT (20*RND (O) > : BY=14: BD=1 : BF= 
O: BA=2+INT <4*RND (0) ) : PB=0 
3030 60T02300:REM BALL 

3040 gosub220o:rem paddle 

3050 G0T03030 

3060 POKESID+1 , 250: POKESID+4, 33: POKESID+ 
24, 15:F0RPA=1T030:NEXTPA 

3061 POKESID+1, 0:P0KESID-i-4, 32 
3065 NEXTB: RETURN 

3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4005 PRINT" <HOME>tRVS OFFJtCYNJTHE GAME 
IS OVER ! ! ! " 

4020 PRINT" YOUR SCORE IS:"SC"("S 

4030 I FSC< 50THENPR I NT " LOUSY ) " : RETURN 

4031 IFSC< 100THENPRINT"P00R) " : RETURN 

4032 I FSC< 1 50THENPR I NT " SO-SO ) " : RETURN 

4033 IFSC<200THENPRINT"BLAH) ": RETURN 

4034 IFSC<225THENPRINT"600D) ": RETURN 

4035 IFSC<250THENPRINT"6REAT> ": RETURN 

4036 IFSC<275THENPRINT"EXCELLENT) " : RETUR 
N 

4037 IFSC<300THENPRINT"FANTASTIC) ": RETUR 
N 

4038 PRI NT " PERFECT ) " : RETURN 
4990 RETURN 
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Connect Five 

This classic game requires that you connect five squares either vertically, 
horizontally, or diagonally. Though not a great challenge, the game is good 
for your ego. Lines 2000-2017 draw the gameboard. Line 2005 clears the 
screen, and sets the color to light grey (using the (COMMDR-KEY/8) key 
combination). If you don't like the color of the board, experiment with the 
(Commodore-Number) or (CTRL-Number) combinations until you find one 
you like. Note that the vertical bars are created by printing a series of 
uniformly spaced inverse spaces. Next, list lines 3000-3025. Although the 
game asks for a row number, it uses a string variable ANS$ to collect the 
information. ANY variable that ends with a dollar sign ($) is called a string 
variable, and no mathematical operations may be performed upon it. This is 
one of the simplest methods of error checking user input. If we had used the 
variable ANS instead, and somebody accidentally pressed a non-numeric 
key, we would get a ?REDO FROM START error, and our display would get 
messed up. By using the VAL function in line 3020, we convert any answer 
to its numeric equivalent. Line 3021 checks the numeric value to make sure 
it is between 1 and 7 (the number of columns). If it is not, then 3025 gives 
you a reminder of what type of input the computer is expecting and sends 
you back to line 3010 to retrieve it again. You might want to experiment 
with the VAL command to see how computers alphabetize lists of words. 

The diamond can be produced with a SHIFT-Z. 
The heart can be produced with a SHIFT-S. 
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10 REM »»««****»***«***»*** 

11 REM *** ♦** 

12 REM ** CONNECT FIVE ** 

13 REM *** »** 

14 REM »»*«*****»********** 

15 : 

16 : 

20 60SUB1000:rem instructions 
30 60SUB200o:rem setup 

40 G0SUB3000:REM PLAY! 
50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1010 PRINT" CCLR>" 

1015 P0KE53281 , 12: P0KE53280, 12 

1020 PRINTTAB(10)"<BLU>**» CONNECT FIVE 

*»»" 

1030 PRINT: PRINT: PRINT 

1035 PRINT"THE OBJECT OF THE SAME IS TO 
SET FIVE OFYOUR PIECES IN A ROW, "; 

1040 PRINT"EITHER VERTICALLY OR HORIZONT 
ALLY. " 

1041 PRINT 

1045 PRINT-WHEN IT IS YOUR TURN TO MOVE, 
ENTER THE" 

1046 PRINT"NUMBER OF THE COLUMN YOU WISH 
TO DROP" 

1047 PRINT"YOUR PIECE INTO." 

1048 PRINT 

1050 PRINT"AFTER YOU MOVE, I WILL TAKE A 
TURN. " 

1055 PRINT"THE FIRST ONE TO CONNECT FIVE 

IS THE WINNER." 
1060 print: print: print: PRINT"PRESS RETUR 
N WHEN READY TO CONTINUE" 
1065 BETANS*: IFANS*< >CHR* < 13) THEN1065 
1990 RETURN 

2000 : 

2001 :REM ♦«* SETUP 

2002 : 

2005 PRINT" tCLRJtSRY 3>"; :P0KE53281, 14:P 
0KE53280 14 

2006 PRINTTAB<6)"<RVS 0N> 1 2 3 4 
5 6 7 " 

2010 F0RI=1T07 
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2011 FORjBlTOZ 

2012 PRINTTAB(6)"{RVS 0N> {RVS OFF> {R 
VS 0N> €RVS OFF> {RVS 0N> €RVS OFF> 
«RVS □N> <RVS OFF> tRVS QN> {RVS OFF} 

tRVS ONJ {RVS OFFJ {RVS 0N> {RVS OFF 
> {RVS ON} {RVS OFF>" 

2015 NEXT 

2016 PRINTTAB(6)"{RVS 0N> 



2017 PRINT" {CSU> "TAB <6) "{RVS 0N> 1 2 
3 4 5 6 7 " 

2020 PL0T=49152: F0RI»0T024: READC: POKEPLT 

+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32,16,192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32,253,174,32 

2026 DATA158, 173, 76, 170, 177 
2030 P*<l)="#**":P*(2)="*»«i" 
2040 C<1)=90:C(2)=83 

2110 DEFFNCO ( X ) -PEEK (55296-i-FX+40«FY) ANDl 
5 

2900 DEFFNX < X ) = ( X-1 ) #4+7 
2905 DEFFNY(X>«(X-l)«3'i-l 
2920 DEFFNSC < X ) «PEEK < 1 024-i-X ) 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3010 SYSPLT, O, 22: F0RI=1T02: PRINT" 



3011 P=l: SYSPLT, 0,22: INPUT" {BLK> YOUR MOV 
E (COLUMN 1-7) "$ANS« 

3020 ANS=VAL<ANS*) 

3021 IFANS>0ANI>ANS<8ANDANS»INT ( ANS) THEN3 
030 

3022 SYSPLT, 0,23 

3025 PRINT"PLEASE SELECT A NUMBER FROM 1 

TO 7" : F0RA»1T01000: NEXT: 60T03010 
3030 AX=FNX(ANS} 
3040 IF FNSC(AX-i-40>=32THEN3050 
3045 SYSPLT, 0,23: PR I NT "THAT COLUMN IS FU 
LI ":F0RA=1T01000:NEXT:G0T03010 

3050 F0RJ=1T07:PRINTMID«("{YEL>{LT 6RN>" 

,p,l>? 

3051 jx=fny<j) :fork=jxtojx+l: sysplt, ax, k 
:printp*(P);:nextk 

3055 ifj=7then30b0 

3060 lx=fny < j+1 > : iffnsc (40*lx+ax ) < >32the 



:NEXT 



" : NEXT 
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NJ»7:S0T03080 

3070 F0RK=JXT0JX+1 : SYSPLT, AX , K: PRINT" 

";:NEXTK 

3080 NEXTJ 

3090 F0RI=1T07:F0RJ=1T03:F0RK=»JT0J+4: ix= 

fnx(I):kx=fny(K) 

3100 iffnsc ( i x+40*kx ) <>c (p) thenk=j+4: nex 
tk:goto3110 

3105 NEXTK: RETURN 
3110 NEXT: NEXT 

3120 F0RJ=1T07:F0RI=1T03:F0RK=IT0I+4:KX= 

fnx(K):jx=fny(J) 

3130 IFFNSC (KX+40*JX)< >C (P) THENK=I+4: NEX 

TK:G0T03140 

3135 NEXTK: RETURN 

3140 next: NEXT 

3 1 50 I FP"2THENP= 1 : B0T030 1 O 

3155 SYSPLT, O, 22: F0RI=1T02: PRINT" 

":NEXT 

3156 SYSPLT, 0,22: PRINT" €BLU>MY MOVE..." 
3160 P=2:ANS=1+INT(7»RND<0) ) :AX=FNX (ANS) 
: IFFNSC (40+AX ) < >32THEN3160 

3170 B0TQ3050 

4000 : 

4001 :REM **• END 

4002 : 

4010 SYSPLT, O, 22: F0RI=1T02: PRINT" 

":next 

4011 sysplt, o, 22: print" {blk> the same is 

OVER ! ! !":PRINT"THE WINNER IS ..."; 
4020 IFP=1THENPRINT" YOU ! ! ! {HOME> " ; : RETUR 
N 

4030 PRINT"ME !!! {HOME> ";: RETURN 
4990 RETURN 
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Craps is a somewhat simplified version of the popular dice game. You are 
given a $1300 stake to play with. To stop playing before you run out of 
money, make a bet of dollars. Let's look into the program. The section 
that will probably attract your attention first is lines 2340-2393. Each of the 
four line subroutines in this section of the program draws one of the six 
sides of a die. Lines 2400-2410 create the sound routine which simulates the 
turning of the dice. Line 2100 creates a random number for each of the dice 
(Dl and D2). Line 2330 uses an ON/GOTO structure again, going to the 
appropriate dice-rolling routine based on the value of the variable DD. Line 
2320, by the way, determines what color the dice will be. It creates a string 
composed of all the possible colors, and then picks a random element of 
that string for the color value. This is a good one-line routine to use when 
you want to change the color of an object at random. 

The circles for the dice can be produced with SHIFT-Q's. 
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10 

11 

12 
13 



REM 

REM *** *** 
REM »♦ CRAPS ** 

REM «** 



14 REM «*»««««*»»****«***«* 

15 : 

16 : 

20 60sub1000:rem instructions 
30 60sub2000:rem setup 

40 G0SUB3000:REM PLAY! 
50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM **« INSTRUCTIONS 

1002 : 

1005 P0KE53281 , 12: P0KE53280, 12 

1010 PRINT" <CLR>tBLKJ "TAB (13)"*** CRAPS 

»*«" 

1030 PRINT: PRINT 

1031 PRINT"THIS IS A DICE GAME CALLED «» 
CRAPS** ." 

1035 PRINT 

1040 PR I NT "TO PLAY, YOU WAGER A PORTION 
OF YOUR" 

1041 PRINT"MONEY ON A ROLL OF THE DICE. 
HERE ARE THE RULES..." 

1045 PRINT 

1050 PRINT"YOU WIN IF THE FIRST ROLL IS 
EITHER 7 OR"; 

1051 PRINT"11. CONVERSELY, YOU LOSE IF 
THE FIRST ROLL IS 2, 3, OR 12." 

1060 PRINT 

1065 PRINT" IF YOU GET A 4,5,6,8,9, OR 10 
ON YOUR" 

1066 PRINT"FIRST ROLL, IT IS REFERRED TO 
AS YOUR" 

1067 PRINT"*POINT*. YOU MUST CONTINUE R 
OLLING" 

1070 PRINT"UNTIL YOU: 1) ROLL A 7, WHICH 
IS CALLED" 

1071 PRINT"*CRAPPING OUT* WHEREBY YOU LO 
SE OR 2) " 

1072 PRINT "YOU ROLL A NUMBER EQUAL TO YO 
UR POINT. ..YOU WIN!" 

1075 PRINT 

1080 PRINT"TO QUIT THE SAME BET O DOLLAR 
S. " 
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1100 PR I NT: PR I NT "PRESS RETURN TO BEGIN P 
LAY. " 

1 1 10 6ETANS«: IFANS«< >CHR« ( 13) THENl 1 10 
1990 RETURN 

2000 : 

2001 :REM **« SETUP 

2002 : 

2003 P0KE53281,0 
200S PRINT" tCLR>"; 

2010 PRINT" <BLU>{RVS ON> 

" S 

2011 F0RI=1T020: PRINT" <RVS 0N> {RVS DFF> 

{R 

VS ON> {RVS 0FF}";:NEXT 

2012 PRINT" {BLU>{RVS 0N> 

II ■ 

2015 SID=54272: FC3RI»SIDT0SID-t-24: POKEI , O: 
NEXTI 

2016 POKESID+5,9 

2020 PLOT-49152: F0RI-0T024: READC: POKEPLT 
+I,C: NEXTI 

2021 DATA32, 16, 192, 132 

2022 DATA253,32,16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 I>ATA24,76,240,255 

2025 DATA32,253,174,32 

2026 DATA158, 173, 76, 170, 177 
2030 MNYslSOO 

2095 RETURN 

2200 Dl»l-i-INT(6«RND(0) ) :D2sl-i-INT(6*RND(0 
)> 

2210 e0SUB2300:G0SUB2310 
2220 60SUB2300:G0SUB2310 
2230 GETKEY* : I FKEY*= " " THEN2200 
2300 DD»D1:DX«10:G0T02320 
2310 DD=D2:0X«24 

2320 PRINTMID* < " {RED> {CYN> {PUR> <6RN> <BLU 
}€YEL>€LT RED> {ORNG} {LT BLU>", 1+INT(9*RN 
D(0>),1); 

2330 0NDDG0T02340, 2350, 2360, 2370, 2380, 23 
90 

2340 SYSPLOT,DX, 10: PRINT" <RVS 0N> 

2341 SYSPL0T,DX,11:PRINT"CRVS 0N> tt " 

2342 SYSPLOT,DX, 12: PRINT" {RVS 0N> 

2343 G0T02400 

2350 SYSPLOT,DX, 10: PRINT" {RVS 0N> • 

2351 SYSPLOTjDX, ll:PRINT"{RVS 0N> 

2352 SYSPLOT,DX, 12: PRINT" {RVS DN> • " 

2353 G0T02400 
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2360 SYSPLOTjDX, lO: PRINT" €RVS 0N> • 

2361 SYSPLOT,DX,ll:PRINT"tRVS 0N> • " 

2362 SYSPLOT,DX, 12: PRINT" tRVS 0N> • " 

2363 G0T02400 

2370 SYSPLOT,DX, 10: PRINT" {RVS 0N> • • " 

2371 SYSPL0T,DX,11:PRINT"{RVS 0N> 

2372 SYSPLOT,DX, 12: PRINT" {RVS 0N> • • " 

2373 G0T02400 

2380 SYSPLOT,DX, lO: PRINT" CRVS 0N> mm" 

2381 SYSPLOT,DX,ll:PRINT"tRVS 0N> •» " 

2382 SYSPLOT,DX, 12: PRINT" <RVS 0N> mm" 

2383 60T02400 

2390 SYSPL0T,DX,10:PRINT"tRVS 0N> • • " 

2391 SYSPLOT,DX, ll:PRINT"tRVS 0N> » • " 

2392 SYSPLOT,DX, 12: PRINT" <:RVS 0N> • • " 

2393 eOT02400 

2400 POKE SID+l,90:POKESID+4,33:POKESID+ 

24,10: FOR PA=1 TO 80: NEXT 

2410 POKE SID+4,32:P0KE SID+1,0 

2990 RETURN 

3000 : 

3001 :REM »♦* PLAY 

3002 : 

30 1 O G0SUB3300 : Y»4 : G0SUB3305 : Y=6 Z 60SUB33 
05 

3015 SYSPL0T,3,3:PRINT"{RVS OFF>tGRN>YOU 
HAVE"MNY" €CSL> DOLLARS " 

3020 SYSPL0T,2,23:INPUT "<6RY 3>H0W MUCH 
WILL YOU BET";ANS« 

3021 ANS=INT(VAL(ANS«>) 

3022 IFANS<00RANS>MNYTHEN3010 

3023 IFANS=OTHENRETURN 

3025 SYSPL0T,3,4:PRINT"{RVS OFF> tGRY 3>B 
ET:"ANS"{CSL> " 

3030 SYSPLOT, 2, 23: PRINT" (ROLLING. .. ) <PR 
ESS ANY KEY TO STOP>"; 
3040 G0SUB2200:TsDl+D2 
3045 60SUB3300 

3050 SYSPLOT, 3, 6: PRINT" ^CYNIROLLED: "T" tC 
SL> " 

3055 i ft >3andt< 1 2then3060 

3056 sysplot, 3, 7: print" <cyn> you crapped 
out...":ans=-ans 

3057 F0RPA=1T01500: NEXTPA: B0T03200 

3060 I FT< >7ANDT< > 1 1 THEN3065 

3061 SYSPLOT, 3, 7: PRINT" tCYN>YOU WON THAT 
TOSS. . . " 

3062 F0RPA»1T01500: NEXTPA: G0T03200 

3065 SYSPLOT, 3, 7: PRINT" tCYN> YOUR POINT I 
S"T"{CSL> ":pt=t 

3066 F0RPA=1T01200: NEXTPA 
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3070 SYSPL0T,3,4:PRINT"tGRY 3>BET: "ANS" < 
CSL> PO I NT : " PT •' {CSL> " 

3072 Y=6: eOSUB3305 

3073 SYSPLOT, 2, 23: PRINT" (ROLLINS. .. ) <PR 
ESS ANY KEY TO STOP>"; 

3074 G0SUB2200:T=D1+D2 

3075 SYSPLOT, 3, 6: PRINT" €CYN>R0LLED: tCSL 
> "T"€CSLJ 

3080 IFTO7THEN3085 

3081 SYSPLOT, 3, 7: PRINT" «CYN> YOU CRAPPED 
OUT ..." 

3082 FORPA= 1 TO 1 500 : NEXTPA : G0T03 1 00 

3085 IFTOPTTHEN3090 

3086 SYSPLOT, 3, 7: PRINT" tCYNJ YOU GOT YOUR 
POINT ! ! ! " 

3087 FORPA= 1 TO 1 500 : NEXTPA : G0T03200 

3090 SYSPLOT, 3, 7: PRINT" tCYNJ YOU MUST ROL 
L AGAIN..." 

3091 FORPA=lT01500: NEXTPA 

3092 G0SUB3300: Y=6: G0SUB3305: G0T03072 
3100 MNY=MNY-ANS: IFMNY<=OTHENRETURN 
3110 G0T03010 

3200 MNYsMNY-i-ANS:G0T03010 
3300 Y=23 

3305 F0RK=0T01 : SYSPLOT, 1 , Y+K: PRINT" {RVS 
OFF> 

3310 NEXT: RETURN 
3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4005 PRINT" €CLR><GRY 3> ": SYSPLOT, O, 10 
4020 PRINT" tGRY 3>Y0U STOPPED WITH"MNY"D 
OLLARS" 

4040 IFMNY<100THENPRINT"BETTER STICK TO 
THE SLOT MACHINES! ":RETURN 

4041 IFMNY<500THENPRINT"N0T SO GOOD": RET 
URN 

4042 IFMNY<1500THENPRINT"N0T BAD AT ALL" 
: RETURN 

4043 PR I NT "THAT'S GREAT! "; 

4044 IFMNY>6000THENPRINT"W0W, WHATTA A R 
OLL! ! !":RETURN 

4990 RETURN 
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Dragon's Lair 



In this game, a maze is constructed before your eyes but becomes invisible 
when completed. You must avoid the man-eating dragon and escape the 
maze — otherwise you will attend the dragon's dinner as the main course! 
Only a good memory will save you from this terrible fate. Lines 2045-2057 
draw the maze the first time around with all the walls in. The rest of the 
setup section (lines 2062-2999) takes care of knocking out the appropriate 
walls to create a trail through the maze. As usual, there are a series of IF 
statements (lines 3015-3033) to test the keyboard. There is one unusual 
thing about Dragon's Lair, however. You are given a choice of playing in 
normal or real time modes. Normal time allows you to make one move 
every time the dragon moves. But if you look at line 3015, you'll see what 
happens if you play real time. The program branches to the subroutine at 
line 3700, which plots the dragon's move without waiting for you to make a 
move! Try it both ways, and see a tough game get even tougher. 

The diamond can be produced with a SHIFT- Z. 
The circle can be produced with a SHIFT- Q. 
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10 REM ********************* / 

11 REM •*» *** 

12 REM ** DRAGON'S LAIR ** 

13 REM *»♦ *♦* 

14 REM ********************* 

15 : 

16 : 

20 eOSUBlOOOlREM INSTRUCTIONS 

30 gosub2ooo:rem setup 

40 G0SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1005 P0KE53280, 14: P0KE53281 , 14 

1010 PRINT" <CLR>tBLU> "TAB < 10)"*** DRAGON 

'S LAIR ***" 

1020 PRINT: PRINT 

1030 PRINT"YOU WILL BE PLACED IN A MAZE 
WITH A MAN-EATING DRAGON." 

1040 PR I NT: PR I NT "YOUR PROBLEM IS TO ESCA 
PE FROM THE MAZE" 

1041 PRINT"BEFORE THE DRAGON MAKE A MEAL 
OF YOU." 

1050 PRINT 

1051 PRINT" YOU MOVE BY PRESSING: ": PRINT 

1052 PRINT" UP - 'I'" 

1053 PRINT" DOWN - 'M'" 

1054 PRINT" RIGHT - 'K'" 

1055 PRINT" LEFT - 'J'" 

1060 print: PRINT: PRINT"PRESS RETURN TO C 
ONTINUE. " 

1065 GETANS«: IFANS«< >CHR« ( 13) THEN1065 
1070 PRINT"tCLR>CBLUJ"TAB(10)"*** DRAGON 
'S LAIR ***" 
1075 print: PRINT 

1080 PRINT"YOU MAY PLAY IN ONE OF THE FO 
LLOWING twomodes:" 

1081 PRINT:PRINT" NORMAL" :PRINT"WHERE 
THE DRAGON MOVES ONLY AFTER YOU" 

1082 PRINT"MAKE A MOVE..." 

1090 print: PRINT" REAL-TIME" 

1091 PRINT"WHERE THE DRAGON'S PURSUIT IS 
CONTINUAL,"; 
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1092 PR I NT "WHETHER YOU MOVE OR NOT !" 
1100 PRINT: PRINT" WILL YOU PLAY:":PRIN 
T 



TIME" 

1105 PRINT: INPUT "WHAT IS YOUR CHOICE (N/ 
R ) " ; ANS« : ANS«-LEFT« ( ANS« , 1 > 
1110 IFANS$< >"N"ANDASN«< >"R"THEN1 105 
1990 RETURN 

2000 : 

2001 :REM *** SETUP 

2002 : 

2005 S I D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 
NEXT: POKESID-i-5, 9: POKESID+6, O 
2010 DIMMA(19, 11,4) 

2015 deffnr(x)=1-i-int(x*rnd(0>) 

2020 pl0t=49152: f0ri»0t024: reaoc: pokeplt 
+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253, 32, 16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2030 RX=FNR(19) :RY=FNR(11) 
2040 PRINT" tCLR>"; 

2045 PRINT" {RVS ON>{WHT> 



2050 F0RI=1T011 

2055 PRINT" <RVS 0N> <RVS OFF} tRVS 0N> { 

RVS OFF> {RVS ON} {RVS OFF} «RVS ON} CRV 

S OFF} CRVS ON} {RVS OFF} ^RVS ON} CRVS 

OFF} €RVS ON} {RVS OFF} {RVS ON} {RVS OF 

F} {RVS ON} {RVS OFF} {RVS ON} {RVS OFF} 
» ■ 

2056 PRINT" {RVS ON} {RVS OFF} {RVS ON} { 
RVS OFF} {RVS ON} {RVS OFF} {RVS ON} {RV 
S OFF} {RVS ON} {RVS OFF} {RVS ON} {RVS 
OFF} {RVS ON} {RVS OFF} {RVS ON} {RVS OF 
F} {RVS ON} {RVS OFF} {RVS ON} " 

2057 PRINT" {RVS ON} 



2060 NEXT 

2061 PRINT" {BLK} «< I'M NOW BUILDING 
THE LAIR »>"; 

2062 CNT-1 

2065 C=0: R=l : L=l : U=l : D=l : IFRX< >19THENR=- 
(MA(RX-I-1,RY,0)>0) 

2066 IFRX<>1THENL=-(MA<RX-1,RY,0) >0) 

2067 IFRY< >1 1THEND-- <MA <RX , RY+1 , O) >0) 



1101 PRINT"N)ORMAL 



-OR- 



R)EAL- 



n 
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2068 IFRY< >1THENU=- <MA (RX , RY-1 , O) >0) 

2069 C^L-i-R-i-U-t-D: IFCsAOR (02ANDFNR ( 10) <3) T 
HEN2100 

2070 ONFNR ( 4 ) G0T02075 , 2080 , 2085 , 2090 
2075 IFRTHEN2070 

2078 SYSPLOT,RX+RX,RY+RY-l: PRINT" tRVS OF 

F> ";:ma(RX,ry,o)«ma(RX,ry,o)+i 

2079 MA <RX , RY, 1 ) =1 : RX=RX+1 : MA (RX , RY, 3) =1 
: MA (RX , RY, O) =MA (RX, RY, 0) +1 : B0T02095 

2080 IFDTHEN2070 

2083 SYSPL0T,RX+RX-1,RY+RY: PRINT" <RVS OF 
F> ";:MA(RX,RY,0)=MA(RX,RY,0)+1 

2084 MA (RX , RY, 2) =1 : RY=RY+1 : MA (RX , RY, 4) =1 
: MA (RX, RY, 0) =MA (RX, RY, O) +1 : B0T02095 

2085 IFI:THEN2070 

2088 SYSPLOT , RX+RX-2 , RY+RY- 1 : PR I NT " tRVS 
OFF> " ; : MA (RX , RY, 0) ^MA (RX , RY, O) +1 

2089 MA (RX , RY, 3) =1 : RX=RX-1 : MA (RX, RY, 1 ) =1 
: MA (RX , RY, O) =MA (RX , RY, O) +1 : B0T02095 

2090 IFUTHEN2070 

2093 SYSPLOT, RX+RX-1 , RY+RY-2: PRINT" <RVS 
OFF} " ; : MA (RX , RY, 0) «MA (RX , RY, O) +1 

2094 MA (RX , RY, 4) "1 : RY=RY-1 : MA (RX , RY, 2) »1 

:ma(Rx,ry,o)=ma(rx,ry,0)+i 

2095 ifma (rx , ry, o) =1thencnt=cnt+1 : ifcnt= 

209THEN2200 
2097 eOT02065 

2100 RX=FNR ( 19) : RY=FNR (11) 

2101 IFMA (RX , RY, O) < >0THEN2065 

2102 RX=RX+l: IFRX>19THENRX=1:RY=RY+1: IFR 
Y>11THENRY=1 

2105 G0T02101 

2200 PRINT" CCLRXWHTJ"; 

2204 PRINT" tRVS ON> 

■i 

2205 FORI'ITOIO 

2206 PRINT" {RVS 0N> tRVS OFF> 

tRVS 0N> " 

2207 PRINT" tRVS 0N> tRVS OFF> 

tRVS 0N> ":NEX 

T 

2208 PRINT" tRVS 0N> tRVS OFF> 

tRVS 0N> " 

2209 PRINT" tRVS 0N> 

■I 

2210 PX=1 : PY=FNR (11): SYSPLOT, PX+PX-1 , PY+ 
PY- 1 : PR I NT " tRVS 0N> tBLU> • " ; 

2215 WY=FNR (11): SYSPLOT, 38, WY+WY-1 : PRINT 
"tRVS OFF} "; 

2220 MX=19: MY=WY: SYSPLOT, 37, MY+MY-1 : PRIN 



158 



T"{BRWN>*"; 

2320 F0RI=1T019: FORJslTOl 1 : MA ( I , J , O) »0: N 
EXT: NEXT 

2400 SYSPL0T,2,24:PRINT"«RVS 0N>{BLKJ J= 
LEFT <LT GRNJ K= RIGHT {BLU> 1= UP {YEL 
> Ms DOWN "; 
2990 RETURN 

3000 : 

3001 :REM «*« PLAY 

3002 : 

3010 GETKEY* 

3015 IFANS*="R"ANDKEY*=""THEN3700 
3020 I FKEY*= " " THEN30 lO 

3030 IFKEY*="K"THEN3100 

3031 IFKEY«="M"THEN3200 

3032 I FKE Y*= •• J " THEN3300 

3033 I FKE Y*= " I " THEN3400 
3040 G0T03450 

3 1 00 I FMA < PX , PY , 1 ) THENX2=PX+ 1 : Y2=P Y : GOTO 
3500 

31 10 F0RK—2T00: SY6PL0T, PX+PX , PY+PY+K: PR 

INT"{RV& ON>CWHT> ":NEXT:G0T03450 

3200 I FMA < PX , PY , 2 ) THENX2=PX : Y2=PY+ 1 : GOTO 

3500 

3210 F0RK=-2T00: SYSPLOT, PX+PX+K, PY+PY: PR 

INT"<RVS ON>{WHT> " : NEXT: G0T03450 

3300 IFMA (PX , PY, 3) THENX2=PX-1 : Y2=PY: GOTO 

3500 

3310 F0RK=-2T00: SY6PL0T, PX+PX-2, PY+PY+K: 
PRINT" tRVS ON>{WHT> ":NEXT:G0T03450 
3400 I FMA ( PX , PY , 4 ) THENX2«PX : Y2=PY- 1 : GOTO 
3500 

34 10 F0RK=-2T00: SYSPLOT, PX+PX+K, PY+PY-2: 

PRINT" «RVS ON>{WHT> ":NEXT 

3450 POKESID+24, 15: POKESID+1 , 20: POKESID+ 

4,33:F0RPAs1T0100:NEXT 

3455 POKESID+4, 32: POKESID+1 , O: POKESID+24 
,0:G0T03700 

3500 SYSPLOT , PX+PX- 1 , PY+PY- 1 : PR I NT " {RVS 

OFFJ ";:px=X2:py=y2 

3510 SYSPLOT, PX+PX-l,PY+PY-l: PRINT" tRVS 
OFF> {BLU>«";: 

3700 IFPX=19ANDPYsWYTHENWINsl : RETURN 
3705 IFPX=MXANDPY=MYTHENSYSPLOT, MX+MX-1 , 
MY+MY-1 : PRINT" {RVS OFF> {RED>4»" ; : WIN=0: RE 
TURN 

3709 ONFNR (4) G0T03710, 371 1 , 3712, 3713 

3710 IFMX<PXTHEN3720 

3711 IFMY<PYTHEN3730 

3712 IFMX>PXTHEN3740 
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3713 IFMY>PYTHEN3750 

3714 G0T03710:REM SHOULDN'T GET HERE 
3720 IFMX=19THEN3730 

3722 IFMA(MX,MY,0> >STHENMA(MX,MY,0)=0:GO 
T03726 

3724 I FMA ( MX , MY , 1 ) =0THEN3730 
3726 X2=MX+1 : Y2=MY: G0T03Q00 
3730 IFMY=11THEN3740 

3732 IFMA<MX,MY,0) >5THENMA(MX,MY,0)=0:G0 
T03736 

3734 IFMA<MX,MY,2)=0THEN3740 
3736 X2=MX : Y2=MY+ 1 : G0T03800 
3740 IFMX=1THEN3750 

3742 IFMA (MX , MY, O) >5THENMA <MX , MY, O) =0: GO 
T03746 

3744 I FMA < MX , M Y , 3 ) =0THEN3750 
3746 X2=MX-1:Y2=MY:G0T03800 
3750 IFMY=1THEN3720 

3752 IFMA (MX , MY, O) >5THENMA (MX , MY, 0) =0: GO 
T03756 

3754 I FMA ( MX , MY , 4 ) "0THEN3720 
3756 X2=MX:Y2=MY-1 

3800 SYSPLOT, MX+MX-1 , MY+MY-1 : PRINT" tRVS 

OFFJ ••; :mx=X2:MY=Y2 

3805 SYSPLOT, MX+MX-1 , MY+MY-1 : PRINT" tRVS 
ON>CRED>«"; 

3810 MA(MX,MY,0>=MA(MX,MY,0)+1 

38 1 5 I FPX= 1 9ANDPY«WYTHENW I N= 1 : RETURN 

3820 IFPX=MXANDPY=MYTHENWIN=0: RETURN 

3830 G0T03010 

3990 RETURN 

4000 : 

4001 :REM **« END 

4002 : 

4005 FORP A= 1 TO 1 000 : NEXT 
4010 IF(WIN)THEN4100 

4020 PRINT" €CLR>{RVS OFF><:WHT>SORRY, BUT 

THE DRAGON GOT YOU...." 
4095 RETURN 

4100 PRINT" €CLR> tRVS OFFJ €WHT>«»»»* YOU 
WON ***** (BUT NOW THE DRAGONIS EVEN HU 
NGRIER!)" 
4990 RETURN 
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In this game, you will build a maze for the maze-loving worm, Itche. Once 
you have completed the maze, you may instruct Itche to try and solve it. 
Though not an interactive game, it is an ingenious utilization of graphics. 
The perimeter of the board is drawn in lines 2006-2008, and the prompts at 
the bottom of the page are drawn at 2016-2017. Line 2020 waits for the input 
to be entered. If you choose "P" for example, line 2035 sends control of the 
program to the routine at line 2200 where the plotting color is set to blue. 
From there it goes to 2700, and waits for the direction in which plotting is 
to take place. Choosing "R" for example, would send the program to the 
routine at line 2750, where Itche's new position (X2) is increased by one 
over his old position (IX+1). (Note how there is one subroutine for each 
direction.) Control is then sent to the routine 2790 (if Itche hasn't reached 
the right border) and is finally returned to Une 2700 to check for further 
movement in the same mode. Can you see what line 2745 does? (Hint take 
it out and try to change from PLOT to MOVE or from MOVE to ERASE, or 
the like.) 

The diamond shape can be produced by a SHIFT- Z. 
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11 

12 



REM »»»»*»*»*****»****** 
REM »»* *** 
REM ** ITCHE »» 



13 REM int* 

14 REM »»*♦»»»»•****»*»*»** 

15 : 

16 : 

20 g0sub1000:rem instructions 
30 gosub20oo:rem setup 
40 60sub3000:rem play! 

50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *«* INSTRUCTIONS 

1002 : 

1005 P0KE53281 , 12: P0KE53280, 12 

1010 PRINT" tCLR>tBLU> "TAB (13)"*** ITCHE 

♦»*" 

1020 PRINT 

1030 PRINT"THIS IS THE GAME OF ITCHE. T 
HE ITCHE" 

1031 PRINT" IS A SPECIAL WORM WHO LIKES T 
O SOLVE" 

1032 PRINT"MAZES. YOU ARE TO CREATE A M 
AZE FOR" 

1033 PRINT"THE ITCHE TO SOLVE." 

1040 PR I NT: PR I NT "BY USING THE FOLLOWING 
INSTRUCTIONS, YOU"? 

1041 PRINT"WILL BUILD THE MAZE WALLS. U 
PON COMMAND"; 

1042 PRINT" (G), ITCHE WILL WIND HIS WAY 
THROUGH THE MAZE." 

1050 PRINT: PRINT"G)0 TO HAVE THE ITC 
HE FIND THE EXIT."; 

1051 PRINT "X)IT TO EXIT THE GAME." 

1052 PRINT "OLEAR TO START THE MAZE O 
VER. " 

1053 PRINT "E)RASE TO ERASE A WALL." 

1054 PR I NT: PR I NT "FOLLOWED BY THESE..." 

1055 PRINT 

1060 PRINT"M) FOR MOVE U 



DOWN" 

1070 print: PR I NT "PRESS RETURN TO BEGIN P 



=UP" 

1061 PRINT"P) 



FOR PLOT 



RsRIGHT 



L=LEFT" 
1062 PRINT" 
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LAY!" 

1075 GETANS«: IFANS«< >CHR« ( 13) THEN1075 
1990 RETURN 

2000 : 

2001 :REM *** SETUP 

2002 : 

2003 P0KES3281 , O: P0KES3280, 12: P0KE650, 12 
8 

2004 S I DS54272 : FOR I =8 1 DTOS I D-t-24 : POKE 1,0: 
iMEXT:P0KESID+S,9 

2005 PRINT" {CLR>{BLU>{RV/S 0N> 

tRVS OFF>"5 

2006 PRINT" {BLK> 

u ■ 
9 

2007 F0RI»1T020: PRINT" <:RV8 ON>{m.U> €RVS 

OFF> <:blk> 

«RVS ON>CBLU> ";:next 

2008 PRINT" {RVS 0N> 

il a 

* 

2009 restore: PL0T=49152: F0RI=0T024: readc 
: PCH<EPLT+I , C: NEXTI 

2010 DATA32, 16, 192, 132 

201 1 DATA253, 32, 16, 192 

2012 DATA152, 170, 164,253 

2013 DATA24,76,240,255 

2014 DATA32, 253, 174,32 

2015 DATA158, 173,76, 170, 177 

2016 PRINT" {WHT>{RVS ON>G)0 OLEAR 
X)IT U)P D)OWN "; 

2017 PRINT" {RVS ON>P)LOT E>RASE M)OV 
E => DEFT R)I6HT{H0ME>"; 

20 1 8 POKE 1 024+999 , 1 60 : P0KE55296+999 , 1 

2019 C0*=" {BLK> {WHT> €REDJ tCYN> <PUR> tBRN> 
<BLU> {YEL>{0RN6> {BRWN> {LT RE0>{6RY 1X6R 
Y 2>tLT GRNXLT BLUJtGRY 3>": IX=2: IY=l:S 

YSPLOT, ix,iy:print"{RVS on>{CYN> ";:cl*= 

" " : C2*= " tRVS 0N> {BLK> " 

2020 GETANS«:IFANS«s""THEN2020 
2030 IFANS«<="G"THEN2100 

2035 IFANS«»"P"THEN2200 

2040 IFANS«="M"THEN2300 

2045 IFANS»s"E"THEN2400 

2050 IFANS«-"C"THEN2500 

2055 I FAN5«= " X " THEN2600 

2060 FR=10: PA»5: G0SUB6000: 60T02020 

2100 REM »** GO ROUTINE 

21 lO RETURN 

2200 REM ♦♦♦ PLOT ROUTINE 

22 1 o CL*= " <;blu> " : GOT02700 

2300 REM *** MOVE ROUTINE 
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2310 CL*="":G0T02700 

2400 REM **« ERASE ROUTIhE 

2410 CL*=" <BLK> " : G0T02700 

2500 REM *** CLEAR ROUTINE 

2510 60T02000 

2600 REM ♦** EXIT ROUTINE 

2610 S0SUB5000:PRINT"D0 YOU WISH TO QUIT 
?" 

26 1 1 BET ANS* : I F ANS*= " " THEN26 1 1 

2620 IFLEFT* ( ANS«, 1 ) =" Y"THENG0SUB4020: EN 
D 

2625 GOSUBSOOO : G0T020 1 6 
2700 REM *** DIRECTIONS 

2710 GETANS*: IFANS*=""THEN2710 

2711 X2=IX:Y2=IY 

2715 IFANS*="R"THEN2750 

2720 IFANS*="D"THEN2760 

2730 IFANS*="L"THEN2770 

2740 IFANS*="U"THEN27Q0 

2745 60T02030 

2750 REM »»* RIGHT 

2752 X2=IX+l:IFX2<39THEN2790 

2754 X2=3B:G0T027Q5 

2760 REM »** DOWN 

2762 Y2=IY+l:lFY2<22THEN2790 

2764 Y2=2l:60T02785 

2770 REM *»» LEFT 

2772 X2=IX-l:IFX2>0THEN2790 

2774 X2=l:G0T02785 

2780 REM »»» UP 

2782 Y2= I Y- 1 : I F Y2 >0THEN2790 

2784 Y2=l 

2785 FR=200 : P A= 1 5 : G0SUB6000 

2790 PRINTCL*5 : IFCL*=" "THENPRINTC2*; 

2791 SYSPLOT, IX,IY:PRINT"tRVS ONJ "; 

2792 C2*=MID*<C0*, 1+(PEEK(55296+X2+40*Y2 
)AND15>, 1) 

2795 SYSPLOT, X2,Y2: PRINT" tCYNJtRVS 0N> " 
; : IX=X2: IY=Y2:G0T02700 
2990 RETURN 

3000 : 

3001 :REM *♦* PLAY 

3002 : 

3005 G0SUB5000: PRINT" «< ITCHE IS NOW S 
OLVING THE MAZE »>" 

3010 X2=l : Y2=l : SYSPLOT, X2, Y2: PRINT" «GRN> 

3015 PRINTCL*? : IFCL*=""THENPRINTC2*; 

3016 SYSPLOT, IX, I Y: PRINT" tRVS ONJ "; 
3020 X3=0:Y3=1:DIR=2 
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3030 XX=X2+X3: YY=Y2+Y3: IFXX=0AN0YYb1THEN 
RETURN 

3035 IFXX=39ANDYY=1THENRETURN 

3040 IFXX< lORXX >380RYY< 10RYY>21THEN304S 

3041 COsPEEK (55296-i-XX-l-40«YY> AND15: IFCQsO 
THEN3100 

3045 DI»0I-l:IFDI<lTHENDIs4 
3050 IFDI»1THENX3«1:Y3=0:G0T03030 
3055 IFDI=2THENX3=0: Y3=l : B0T03030 
3060 IFDI=3THENX3=-1 : Y3=0: 60T03030 
3065 IFDI=4THENX3=0: Y3=-l : BOT03030 
3100 SYSPL0T,X2,Y2: PRINT" «RVS OFF>tBLK> 

" ; : X2=X2+X3: Y2=Y2+Y3: sysplot, X2, Y2: print 

"{6RNXRVS OFF>*"; 

3105 CLsCL+l : DI»DI-i-l : IFDI >4THENDI»1 
31 lO FR»25:PA«3:G0SUB6000:G0T03050 
3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4005 SYSPLOT, X2,Y2: PRINT" {RVS ON><BLK> " 
; : X2«X2+X3: Y2=Y2+Y3 

4010 F0RK=1T010: SYSPLOT, X2, Y2: PRINT" CGRN 
>{RVS OFF>*"; 

4011 FR»20:PA=20:G0SUB6000 

4012 SYSPLOT, X2,Y2: PRINT" €BLK> "; 

401 3 FRb40: PA«20: G0SUB6000 
4015 NEXT 
4020 G0SUB5000 

4025 IFLEFT* (ANS«, 1 ) < >" Y"THEN4030 

4026 PRINT" {WHTXRVS 0N> « ITCHE SAYS Y 
OU SPOILED HIS FUN ! »{HOME> "; :RETURN 

4030 IFX2O39THEN4040 

4031 PRINT" CUHTXRVS 0N> «< ITCHE HAS 
SOLVED THE MAZE »>" 

4032 PRINT" tRVS 0N> HE DID IT IN"C 
L"CLICKS. . . {HOME> " ; : RETURN 

4040 PRINT" tWHT> tRVS 0N> «< ITCHE CANN 
OT SOLVE YOUR MAZE »>" 

4041 PRINT" {RVS 0N> HE IS STUCK AT 
THE BEGINNING. . CHOME> " : RETURN 
5000 REM CLEAR BOTTOM TWO LINES 
5005 SYSPLOT, 0,23: PRINT" CWHT> {RVS 0N> 

5010 PRINT" {RVS 0N> 

5020 SYSPLOT, 0,23: RETURN 
6000 REM PLAY A NOTE 

6005 POKESID+l , FR: POKESID-i-24, 15: POKESIIH- 
4,33 
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6010 fori=itoio»pa:nexti 

6020 POKESID+1 , O: POKESID+4, 32: POKESID+24 
,0: RETURN 
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(Requires Paddles) 



This game is similar to the video dinosaur, Pong. Both you and your 
opponent start with five men. Using paddles, (joysticks won't work) try to 
maneuver your paddle to deflect the ball into your opponent's men while, at 
the same time, protecting your own. The winner is the first player to 
eliminate all of his opponent's men. List lines 2210-2252. These lines, as 
indicated by the REM statement in 2210, control the movement of the two 
paddles. Line 2050 draws the five men. Try changing the step value in this 
line to see how it is set up. Use a value of 5 for the STEP increment to see 
how many men are produced. The ball moving routine and the various 
collision routines make up lines 3000-3150. As usual, the best way to see 
what each line does is to remove it and see how the program is affected. 

The vertical bar figure can be produced with a CMDR-K. 
The circle can be produced by a SHIFT-Q. 



V 
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10 REM 

11 REM *** »** 

12 REM ** KNOCK OUT ** 

13 REM **♦ **♦ 

14 REM ***»«*'»**»**««'i("it"N'«"N'* 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 gosub200o:rem setup 
40 g0sub3000:rem play! 

SO 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *«* INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,12: P0KE53280 , 1 4 

1010 PRINT" <CLR>tBLK>{CSD>"TAB<ll)"*** K 

NOCK OUT **»": PRINT: PRINT 

1030 PRINT"»KNOCK OUT* IS A TWO PLAYER 6 
AME THAT IS"; 

1031 PRINT"SIMILAR TO PONG. EACH PLAYER 
HAS A" 

1032 PRINT"PADDLE WITH WHICH HE TRIES TO 
RETURN THE"; 

1033 PRINT"BALL TO HIS OPPONENT'S COURT. 
■I 

1040 PRINT 

1050 PRINT"THE OBJECT OF THE GAME IS TO 
KO ( KNOCK " 

1051 PRINT"OUT) YOUR OPPONENT'S MEN WHIL 
E DEFENDING"; 

1052 PR INT "YOUR OWN." 
1055 PRINT 

1060 PR I NT "THE FIRST PLAYER TO KNOCK OUT 
ALL OF THE"; 

1061 PRINT"OPPOSITION'S MEN IS THE WINNE 
R. " 

1070 PRINT: PRINT: PRINT"PRESS RETURN WHEN 

READY TO CONTINUE." 
1 080 GETANS» : I F ANS$< >CHR« (13) THEN 1 080 
1990 RETURN 

2000 : 

2001 :REM ♦*» SETUP 

2002 : 

2010 SID=54272: F0RI=SIDT0SID+24: POKEI , O: 
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NEXT 

2015 P0KESID4-24, 15 

2020 pl0t»49664 : for i =07024 : reaoc : pokeplt 
+i,c:nexti 

2021 DATA32, 16, 194, 132 

2022 DATA253,32,16,194 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158,173,76, 170, 177 
2040 PRINT" «CLR>€GRN>"S 

2050 F0RI=4T020STEP3: SYSPLOT, 3, I : PRINT" <. 
BLUXRVS 0N> ";:SYSPL0T,36, I:PRINT"tRVS 
ON>{YEL> "; 

2055 SYSPLOT, 3,1+1: PRINT" tBLU>«RVS 0N> " 
;: SYSPLOT, 36, I+l: PRINT" CRVS ON>{YEL> ";: 
NEXT 

2130 pdl=49152: f0ri=0t063: readc: pokepdl+ 
i,c:nexti 

2131 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69, 192, 141,2,220, 169 

2132 DATA128, 141,0,220, 160, 128,234, 136, 1 
6,252, 173,25,212, 157 

2133 DATAl, 193, 173,26,212, 157,3, 193, 173, 
O, 220, 9, 128, 141 , 5, 193 

2134 DATA169,64,202, 16,222, 173,0, 193, 141 
, 2, 220, 173, 1 , 220, 141 

2135 DAT A6, 193,88,96 

2140 SYSPLOT, 0,24: PRINT" «RVS ON>{LT BLU> 

■I 

« 

2 1 45 P0KE2023 , 1 60 : P0KE56295 , 1 4 

2146 SYSPLOT, 0,0: PRINT" {RVS ON>tLT BLUJ 

II 

S 

2150 00=1:01=1 

2170 F0RI=1T0100:60SUB2200:NEXT 
2180 SF=1 
2190 RETURN 
2200 : 

2210 :REM »«« PADDLE CONTROL 
2220 : 

2230 SYSPDL: P0=1+INT < 10*PEEK (PDL+257) /II 
7) : P1=1+INT ( 10»PEEK (PDL+259) /I 17) 

2240 IFP0=00THEN2250 

2241 SYSPLOT, 14,00: PRINT" {RVS OFF> ";:SY 
SPLOT, 14, 00+1 : PRINT" » ; 

2242 00=P0: SYSPLOT, 14, 00: PRINT" {YEL>| " ; : 
SYSPLOT, 14, 00+1 : PRINT" {YEL>« "; 

2250 IFP1=01THEN2260 
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2251 SYSPL0T,25,01:PRINT"€RVS OFF> •■;:SY 
SPLOT, 25,01+1: PRINT" "5 

2252 D1=P1 : SYSPLOT, 25, 01 : PRINT" <BLU> {RVS 
0N> I " ; : SYSPLOT, 25, 01+1 : PRINT" tBLUJ <RVS 

0N>| "; 
2260 RETURN 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3060 L1=6:L2='6 

3070 BX=16+INT < 10*RND (0) ) : BY=5+INT ( 15*RN 
D(0) ) :BD«-1+2*INT(2*RND(0> ) 

307 1 BS= I NT ( 5»RND ( O ) ) -2 : I FBS=0THEN307 1 
3075 SYSPLOT, BX, BY: PRINT" tWHT><RVS OFFJ* 
II • 

3080 X2=BX+BD: Y2=BY+BS: 60SUB2200 

3085 IFPEEK < 1024+BX+40»BY) =81THEN3090 

3086 POKES I D+ 1 , 60 : POKES I D+4 , 32 : F0RPA= 1 TO 
20: NEXT : POKES I D+4 , 33 : POKESI D+1 , O 

3087 I FBY< 1 ORBY >23THENBY=BY+BS: BS=-BS 

3088 BX=BX-BD: BY=BY-BS: BD=-BD: BS=-BS: SYS 
PLOT , BX , B Y : PR I NT " { WHT> t RVS 0FF> • " ; 

3089 G0T03080 

3090 IFX2>=0ANDX2<=39THEN3100 

3091 BD=-BD 

3092 POKES I D+ 1 , 90 : POKES I D+4 , 32 : FORPA= 1 TO 
20 : NEXT : POKES I D+4 , 33 : POKES I D+ 1 , O 

3095 G0T03080 

3 1 00 I F Y2 >= 1 ANDY2< =23THEN3 110 

3101 BS»-BS 

3 1 02 POKES I D+ 1 , 90 : POKES I D+4 , 32 : FORPA= 1 TO 
20: NEXT: POKESID+4, 33: POKESID+1 , O 

3105 G0T03080 

3110 SC=PEEK ( 1 024+X2+40»Y2 ) : I FSC=32THEN3 
150 

3111 IFSCO160THEN3125 

3112 YY=l+3*INT(Y2/3) 

3113 SYSPLOT, X2,YY: PRINT" CRVS OFF> ";:SY 
SPLOT , X2 , YY+ 1 : PR I NT " " ; 

31 14 POKESID+1 , 40: POKESID+4, 32: F0RPA=1T0 
20: NEXT: POKESID+4, 33: POKESID+1 , O 

3115 IFX2=3THENL1=L1-1 

3116 IFX2=36THENL2»L2-1 

3117 I FL 1 »00RL2»0THEN3500 
3120 G0T03150 

3 1 25 POKES I D+ 1 , 60 : POKES I D+4 , 32 : F0RPA« 1 TO 

20: NEXT: POKESID+4, 33: POKESID+1 , O 

3130 IFX2< >25THENB0=-BD: BS= ( Y2-00) + < Y2-0 

0<1)*2:60T03080 
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3140 BD=-BD: BS= ( Y2-01 ) + ( Y2-0K 1 ) *2: 60T03 
080 

31S0 SYSPLOT,BX, BY: PRINT" {RVS OFF} "s:SY 
SPLOT, X2, Y2: PRINT" tRVS OFFJ {MHT>tt" ; : BX=X 
2: BY=Y2: G0T03080 
3500 RETURN 
3990 RETURN 

4000 : 

4001 :REM *«* END 

4002 : 

4005 POKESID-i-24,0 

4010 PRINT" {HOME>{BLK>{CSD> THE GAME IS O 
VER ! ! ! " 

4020 PRINT"THE WINNER IS PLAYER #"2+(L2= 
O) 

4990 RETURN 
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Foucet 




This program is not a game per se, but rather a unique demonstration of 
some of the graphic capabilities of your Commodore 64, The game simulates 
a dripping faucet. The program allows you to position the faucet on the 
screen so that you can fill the lower half of the screen with "water" as 
quickly as possible. List lines 3600-3990. Line 3600 scans the keyboard, 
checking to see if any of the function keys have been pressed. If the fl key is 
pressed, line 3605 will send the program to line 3700. From immediate 
mode, type GOTO 3700. At the top of your screen, you will see the first 
digit disappear in some of the numbers. The CHR$(20) performs the same 
function as pressing the INST-DEL key. Type in GOTO 3650 from immediate 
mode to see what happens if the f3 key is pressed. If the fZ key is pressed 
(line 3608), the program drops through to line 3610, returns to the top of 
the program, and finally arrives at the END in line 60. 

Line 3030 reads: HOME, CTRL-1, CTRL-0, 2 {CSR}, SHIFT-asterisk, 
CMDR-R, SHIFT-asterisk, 1 {CSD}, 5 {CSL}, 3 SHIFT-asterisk. CMDR-E, 
SHIFT-asterisk, SHIFT-I. 

Line 3040 reads: 4 SHIFT-asterisk, 1 SHIFT-I, . . . , CMDR-Z, CMDR-X. 

The circle is produced with a SHIFT- Q. 
Lines 3652-3, the line is a CMDR-P. 
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10 REM *««**«**«««**«****** 

11 REM *** *** 

12 REM ♦* LEAKY FAUCET ** 

13 REM *** *** 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 60sub2000:rem setup 
40 g0sub3000:rem play! 

50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,6: P0KE53280 , 1 4 

1010 PRINT"tCLR>"TAB(8)"tWHTJ**» THE LEA 

KY FAUCET »»»" 

1020 PRINT: PRINT: PRINT 

1030 PRINT"THIS IS NOT A GAME, BUT AN" 

1031 PRINT-EXTREMELY ENTERTAINING GRAPHI 
CS DEMO." 

1032 PRINT: PRINT"WE HOPE YOU ENJOY IT 1" 

1033 PRINT: PRINT: PRINT 

1034 PR I NT "PRESS RETURN TO CONTINUE." 

1 035 GETANS« : I FANS«< >CHR« (13) THEN 1 035 
1990 RETURN 

2000 : 

2001 :REM »** SETUP 

2002 : 

2005 SIDaS4272: F0RI«SIDT0SID4-24: POKEI , O: 
NEXT: POKESID+5, 9 

2020 pl0t=49 1 52 : for i =0t024 : re adc : pokeplt 
+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253, 32, 16,192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2030 NUslOO 

2990 RETURN 

3000 : 

3001 :REM »»♦ PLAY 

3002 : 
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3010 PRINT" <:CLR>" 

3015 SYSPL0T,2,24:PRINT"<RVS 0N>{CYN> F1 
LEFT tWHTJ F3 RIGHT {YEL> F7 START AGAI 

N ••; 

3020 F0RI=1T0NU: PRINTMID* < " €YEL> CBLK> tBR 
WN> CWHT> <CYN> {LT GRN> {6RN> " , 1+INT (7*RIMD ( 
0)),1); 

3021 SYSPLOT, 1+INT (38»RND <0) ) , 10+INT < 14* 
RND(O) >: PRINT" {RVS 0N> ";:NEXT 

3030 PRINT" {HOME>{BLK>{RVS OFF> {CSR> {CSR 

> — r-{CSD> {CSL> {CSL> <CSL} {CSL> {CSL> J-—. 

II 

3040 print" -, i {csd> {cslxcsll «-■" 

3110 i=s:rs=o 

3120 SX»I:SY»4 

3121 POKESID+24, 15: POKESID+1 , 15: POKESID-i- 
4,65 

3122 forpa=itoio:nextpa 

3123 POKESID+4, 64: POKESID+l , O: POKESID+24 
,0 

3130 SYSPLOT, SX,SY: PRINT" {RVS OFF><LT BL 

U>«i";:60SUB3600 

3135 S2=SY+l: IFS2>23THEN3200 

3 1 40 I FPEEK < 1 024-«-SX-(-40*S2 ) < >32THEN3200 

3145 SYSPLOT, SX,SY: PRINT" {RVS OFF> ";:SY 

=S2:G0T03130 

3200 LR=:2»INT (2*RND (O) ) -1 

3205 IFPEEK ( 1024+SX+LR+40*SY) < >32ANDPEEK 

( 1024+SX-LR-«-40»SY) < >32THEN3500 

3215 IFPEEK ( 1024+SX+LR-i-40«SY> < >32THENLR= 

-LR:G0T03215 

3220 S2=SX+LR: IFS2< 10RS2>3STHEN3500 
3225 I FPEEK < 1 024+S2+40*SY ) < >32THEN3500 

3230 SYSPLOT, SX,SY: PRINT" {RVS OFF> ";:SX 
=S2 

3231 SYSPLOT, SX,SY: PRINT" {RVS OFF> {LT BL 
U>«"; :G0SUB3600 

3235 IFSY<23THENIFPEEK < 1024+SX+40* (SY+1) 

)»32THEN3135 

3240 G0T03220 

3245 SYSPLOT, SX , SY: PRINT" {RVS OFFJ " ; : SY 
«S2:G0T03130 

3500 IFRS< >1THENSYSPL0T, SX , SY: PRINT" {RVS 

ON>{LT BLUJ ";:G0T03120 
35 lO G0T03010 
3600 GETANS« 

3605 IFANS*="{F1>"THEN3700 

3607 I FANS«= " {F3> " THEN3640 

3608 I FANS«« " {F7> " THENRS= 1 
3610 RETURN 
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3640 IFI«36THENRETURN 
3645 1=1+1 

3650 PRINT" {HOME? <RVS OFFXBLKJ' 

3651 PRINTCHR»(148> 

3652 PR I NTCHR* < 1 48 ) " 

3653 PR I NTCHR* < 1 48 ) " 

3654 PRZNTCHR«(148) 
3690 RETURN 

3700 IFI=5THENRETURN 
3745 1=1-1 

3750 PRINT" {HOME> {CSR> "CHR* (20) 

3751 PRINT" {CSR> "CHR* <20) 

3752 PRINT" tCSRJ "CHR* (20) 

3753 PRINT" €CSR} "CHR* (20) 
3990 RETURN 

4000 : 

4001 ZREM *«* END 

4002 : 
4990 RETURN 
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In this game you try to alphabetize a scrambled list of letters. One square is 
left open so that you may move a letter into it. The computer will scramble 
the completed version approximately 125 times. You must unscramble the 
letter matrix in as few tries as possible. Remember, practice makes perfect! 
Before we look at the graphics, it seems appropriate to mention that proper 
graphics alignment is not a matter of trial and error, but entails working 
with graph paper and drawing the figure which is to be drawn on the screen. 
After figuring which coordinates will be filled in with what color, the writing 
of the program can take place. The nice pictures that you see on the screen 
are more the result of painstaking work than the result of sheer brilliance. 
Getting back to the program itself, let's look at some of the graphics. Note 
how each letter has its own subroutine: lines 2220-2223 draw the letter A, 
2230 to 2233 draw the letter B and so forth down to the letter O. Remember 
that keeping your subroutines well partitioned makes it easier to follow the 
logic of your program. This may not seem important when you're writing 
the program, but if you ever have to go back and look at a program after 
being away from it for some time, you'll be glad that you structured it well. 

In lines 2200 and following, the horizontal bars are produced with CMDR-I's, 
CMDR-O's, or CMDR-U's, depending on the thickness and position of the bars. 
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10 REM »**««»«*»*»*»«**»»*** 

1 1 REM 

12 REM ** MAGIC SQUARES ** 

13 REM it** 

14 REM »»»*»»»♦*•»**»•»•»•** 

15 : 

16 : 

20 eOSUB1000:REM INSTRUCTIONS 

30 GDSUB2000:REM SETUP 

40 G0SUB3000:REM PLAY! 

50 G0SUB4000:REM !END! 

60 END 

70 : 

1000 : 

1001 :REM *«* INSTRUCTIONS 

1002 : 

1005 P0KE53281,1:P0KE53280, 1 
lOlO PRINT" {CLR>€BLU>" 

1020 PRINTTAB(9)"*»» MAGIC SQUARES »»»" 

1030 print: print: PRINT: PRINT 

1031 PRINT" IN THIS GAME, YOU HAVE A 4 BY 
4 GAME—" 

1032 PR I NT "BOARD. THE BOARD CONTAINS THE 
LETTERS A-0. " 

1035 PRINT 

1040 PRINT"THE OBJECT IS TO HORIZONTALLY 
■I 

1041 PRINT" ALPHABETIZE THE SCRAMBLED GAM 
E-BOARD. " 

1042 PR I NT "YOU CAN MOVE A PIECE SIDEWAYS 
OR UP AND" 

1043 PRINT"DOWN, AS LONG AS THE EMPTY SQ 
UARE IS NEXT TO IT." 

1045 PRINT 

1050 PRINT"YOUR PROGRESS WILL BE MONITOR 
ED, AND YOU"; 

1051 PRINT"WILL BE TOLD HOW YOU ARE DOIN 
G. " 

1055 PRINT: PRINT: PRINT 

1060 PRINT"PRESS RETURN WHEN READY TO CO 
NTINUE" 

1070 GETANS«: IFANS«< >CHR« ( 13) THEN1070 
1990 RETURN 

2000 : 

2001 :REM ««* SETUP 

2002 : 

2005 DEFFNX < X ) = ( X- 1 ) •8+4 : DEFFNY < X ) = < X- 1 ) 
*5+l 
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2010 0inB(4,4) :F0RI=lTa4:F0RJ»lT04:K=K-i-l 

:B(J, I)=k:next:next 

2015 DIMDIR (4, 2) : F0RI=1T04: READDIR (1,1), 
DIR (1,2): NEXT: DATAl ,0,0,1,-1,0, O, -1 

2020 PL0T=49152: F0RI=0T024: READC: POKEPLT 

+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA1S8, 173, 76, 170, 177 

2030 PRINT" {CLR>tBLU>"; 

2035 PRINTTAB(3)"{RVS 0N> 

■• 

2040 FORI»lT04:FORJ«lTD4: PRINT" {RVS O 
NJ {RVS OFF> {RVS 0N> {RVS OFF> 

{RVS 0N> {RVS OFF> {RVS ONJ {R 

VS OFF} {RVS 0N> {RVS OFF>" 

2041 NEXT 

2045 PRINT" {RVS 0N> 

■I 

2050 NEXT 

2055 60SUB2100:SYSPLT, 0,22: PRINT" {BLK> 
« I'M NOW SCRAMBLIN6 THE BOARD »" 

2056 SX=4: SY=4: SC=100+INT (50*RN0 (O) ) : FOR 
K=lTOSC 

2058 D=1+INT (4*RND (O) ) : PX»SX+OI (D, 1 ) : PY= 
SY+DI(D,2) 

2059 I FPX< 1 ORPX >40RPY< 1 ORPY >4THEN2058 

2060 B<SX,SY)=B(PX,PY) 

206 1 J=SX : I =S Y : G0SUB2200 

2062 B<PX,PY)=16:SX=PX:SY=PY 
2065 J»SX : I «SY : G0SUB2200 
2070 NEXTK: RETURN 
2100 REM ««« DRAW THE BOARD 
21 10 F0RI-1T04: F0RJ=1T04: PRINT" {RED> " ; : S 
0SUB2200: NEXT: N£XT: RETURN 

2200 :REM «*« DRAW A LETTER 

2201 X=FNX(J):Y=FNY(I) 

2202 SYSPLOT, X , Y: PRINT" {RED> " ; 
2205 I FB ( J , I )< 8THEN0NB ( J , I ) 60SUB2220 , 223 
O, 2240, 2250, 2260, 2270, 2280: RETURN 
2210 ONB ( J , I ) -760SUB2290, 2300, 2310, 2320, 
2330, 2340, 2350, 2360, 2370: RETURN 

2220 PRINT" 

2221 SYSPLT,X,Y+l: PRINT" {RVS ON>-{RVS O 
ppj- -{RVS ON} -{RVS OFF} " 

2222 SYSPLT,X,Y-i-2: PRINT" {RVS ON} wmmm {R 
VS OFF} " 
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2223 SYSPLT,X,Y+3: PRINT" - 
2225 RETURN 

2230 PR I NT " nmii i i i nii i ii ii i ii 

2231 SYSPLT,X,Y+l: PRINT" «RVS ON> {RVS O 
FFJ_{RVS ON}«,<RVS OFF> " 

2232 SYSPLT,X,Y+2: PRINT" <RVS 0N> <RVS O 
FF> tRVS 0N> «RVS OFF> " 

2233 SYSPLT,X,Y+3: PRINT" {RVS ON>ffi_».{RV 

S OFF> " 
2235 RETURN 

2240 PRINT" isMmm " 

2241 SYSPLT,X,Y+l: PRINT" {RVS 0N> {RVS O 
FF> 

2242 SYSPLT,X,Y+2: PRINT" {RVS 0N> {RVS O 
FF> 

2243 SYSPLT,X,Y+3: PRINT" {RVS ON>««w«»{R 
VS OFF} " 

2245 RETURN 

2250 PRINT" M» " 

2251 SYSPLT,X,Y+l: PRINT" {RVS 0N> {RVS O 
FF> {RVS 0N> {RVS OFFJ " 

2252 SYSPLT,X,Y+2: PRINT" {RVS 0N> {RVS O 
FF> {RVS 0N> {RVS OFF> " 

2253 SYSPLT,X,Y+3: PRINT" {RVS ON>MMiim{RV 
S OFF> " 

2255 RETURN 

2260 PRINT" i ni i Bui " 

2261 SYSPLT,X,Y+l: PRINT" {RVS ONJ {RVS O 

2262™SYSPLT,X,Y+2: PRINT" {RVS ONJ {RVS O 
FF> 

2263 SYSPLT,X,Y+3: PRINT" {RVS ON>m>mm{RV 
S OFF> " 
2265 RETURN 

2270 PRINT" 

2271 SYSPLT,X,Y+l: PRINT" {RVS ONJ {RVS O 

FF}«TO«, " 

2272 SYSPLT,X,Y+2: PRINT" {RVS 0N> {RVS O 
FF> 

2273 SYSPLT,X,Y+3: PRINT" {RVS ON>m{RVS O 
FFJ 

2275 RETURN 

2280 PRINT" mmmm " 

2281 SYSPLT,X,Y+l: PRINT" {RVS QN> {RVS 

FF> mum " 

2282 SYSPLT,X,Y+2: PRINT" {RVS 0N> {RVS O 
FFJ {RVS 0N> {RVS OFF> " 

2283 SYSPLT,X,Y-i-3: PRINT" {RVS ON>.«m«{RV 
S OFPy " 

2285 RETURN 
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2290 PRINT" „ « " 

2291 SYSPLT,X,Y+l: PRINT" {RVS 0N> tRVS O 
FF>m„tRVS 0N> {RVS OFF> " 

2292 SYSPLT,X,Y+2: PRINT" {RVS 0N> {RVS O 
FF> {RVS ON} {RVS OFF} " 

2293 SYSPLT,X,Y+3: PRINT" - ~ " 
2295 RETURN 

2300 PRINT" mmmm " 

2301 SYSPLT,X,Y+l: PRINT" {RVS 0N> {RVS 
OFF} " 

2302 SYSPLT,X,Y+2: PRINT" {RVS ON} {RVS 
OFF} " 

2303 SYSPLT,X,Y+3: PRINT" {RVS ON}»n»{RV 
S OFF} " 

2305 RETURN 

2310 PRINT" " 

2311 SYSPLT,X,Y+l: PRINT" {RVS ON} {RVS 
OFF} " 

2312 SYSPLT,X,Y+2: PRINT" „ {RVS ON} {RVS 
OFF} " 

2313 SYSPLT,X,Y+3: PRINT" {RVS ON},»h{RVS 
OFF} 

2315 RETURN 

2320 PRINT" mm" 

2321 SYSPLT,X,Y+l: PRINT" {RVS ON} {RVS O 
FF}™{RVS ON} .{RVS OFF} 

2322 SYSPLT,X,Y+2: PRINT" {RVS ON} {RVS O 
FF} {RVS ON}e.{RVS OFF}«„ " 

2323 SYSPLT,X,Y+3: PRINT" - 
2325 RETURN 

2330 PRINT" m 

2331 SYSPLT,X,Y+l: PRINT" {RVS CJN} {RVS O 
FF} 

2332 SYSPLT,X,Y+2: PRINT" {RVS ON} {RVS O 
FF} 

2333 SYSPLT,X,Y+3: PRINT" {RVS ON},.«m{RV 
S OFF} " 

2335 RETURN 

2340 PRINT" mm" 

2341 SYSPLT,X,Y+l: PRINT" {RVS ON} »{RVS 
OFF}h,{RVS 0N}„ {RVS OFF} " 

2342 SYSPLT,X,Y+2: PRINT" {RVS ON} {RVS O 
FF} {RVS ON} {RVS OFF} " 

2343 SYSPLT,X,Y+3: PRINT" - - " 
2345 RETURN 

2350 PRINT" « m " 

2351 SYSPLT,X,Y+l: PRINT" {RVS ON} m{RVS 
OFF}* {RVS ON} {RVS OFF} " 

2352 SYSPLT,X,Y+2: PRINT" {RVS ON} {RVS O 
FF} {RVS 0N}», {RVS OFF} " 
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2353 SYSPLT,X,Y+3:PRINT" - ~ " 
2355 RETURN 

2360 PRINT" " 

2361 SYSPLT,X,Y+l: PRINT" tRVS 0N> IRWS O 
FF> tRVS 0N> CRVS OFF> " 

2362 SYSPLT,X,Y+2: PRINT" tRVS 0N> tRVS O 
FF> «RVS ONJ {RVS OFFJ " 

2363 SYSPLT,X,Y+3: PRINT" CRVS ON>»M»mM<:R 
VS OFF> " 

2365 RETURN 

2370 PRINT" 

2371 SYSPLT,X,Y+l: PRINT" 

2372 SYSPLT,X,Y+2: PRINT" 

2373 SYSPLT,X,Y+3: PRINT" 
2375 RETURN 

3000 : 

3001 :REM ♦** PLAY 

3002 : 

3010 SYSPLT,0,21:FORI=lT03 

3011 PRINT" 



3012 NEXT 

3015 SYSPLT, 0,22: PRINT" {BLK>MOVE WHICH 
P I ECE ? " ; : GET ANS« : PR I NT ANS* ; 

3016 GETANS«: IFANS*=""THEN3016 

30 1 7 PR I NT ANS* : I FANS* >= " A " ANDANS*< = " O " TH 
EN3020 

3018 PRINT" LETTER MUST BE A TO □...»;: 
FORA= 1 TO 1 000 : NEXT A : G0T030 1 

3020 F0RK=1T04: PX=SX+DI (K, 1 ) : PY=SY-DI (K, 
2) 

3025 IFPX< lORPX >40RPY< 10RPY>4THEN3040 
3030 IFB <PX , PY) =ASC < ANS«) -ASC ( "A" ) +1THEN 
MO=MO+ 1 : G0T03 1 00 
3040 NEXTK 

3045 PRINT" THAT LETTER IS BLOCKED..."; 

: F0RA=1T01000: NEXTA: G0T03010 

3100 B(SX,SY)=B(PX,PY) : J=SX: I=SY:G0SUB22 

00 

3110 B<PX,PY)=16:SX=PX:SY=PY 

3115 JsSX : I»SY: G0SUB2200 

3200 K=0: FORI=lT04: F0RJ=1T04: K=K+1 

3210 IFB ( J , I > ^KTHENNEXTJ : NEXTI : RETURN 

3220 G0T03010 

3990 RETURN 

4000 : 

4001 :REM ««« END 

4002 : 

4010 PRINT" tCLR>tBLK> YOU SOLVED IT!":PRI 
NT" IT WAS SCRAMBLED"SC"TIMES. " 
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4020 PRINT"AND YOU SOLVED IT IN"MO"nOVES 

■I 

m 

4030 INPUT "DO YOU WISH TO PLAY AGAIN"; A 
NS« 

4040 IFLEFT* (ANS«, 1 ) ="Y"THENRUN 

4990 RETURN ^ 
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Match the Key 

If you have ever played or even seen Simon, then you should be able to 
recognize this game. A series of tones will be sounded and one of four 
corresponding color boxes will be lit up on the screen. Each box will have a 
specific tone. The four boxes are controlled by the four function keys. 
There are a number of mnemonic devices which make it easier to recall a 
long series, but you should try to develop one that works best for you. A 
very good player can repeat a sequence of twenty boxes, and an expert can 
repeat a sequence of thirty. Listing lines 3000-3200 will show you the 
various graphic routines that draw the boxes in the appropriate colors. Feel 
free to experiment with any lines whose function is unclear. 
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REM «»»**««««*»*«*****»* 
f^M **» «** 
REM »» MATCH THE KEY »* 
REM *** *** 



14 REM w******************* 

15 : 

16 : 

20 gosubiooo:rem instructions 

30 60SUB2000:REM setlnp 
40 60SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 

70 : 

1000 : 

1001 :REM *«« INSTRUCTIONS 

1002 : 

1005 PaKE53281 , 12: P0KE53280, 12: PRINT" {CL 
R>" 

1020 PRINTTAB(9) "{BLKJ*** MATCH THE KEY 
'N-'N")!-" : PRINT 

1030 PR I NT "THIS GAME WILL TEST YOUR MEMO 
RY. YOU" 

1031 PRINT"WILL BE SHOWN A SCREEN WITH F 
OUR COLORED"; 

1032 PR I NT "BLOCKS ON IT. THE COMPUTER W 
ILL LIGHT" 

1033 PRINT"UP ONE OF THE BLOCKS, AND SOU 
ND ITS" 

1034 PRINT"CORRESPONDING TONE." 

1035 PRINT 

1040 PRINT" INPUT THE FUNCTION KEY FOR TH 
E LIGHTED" 

1041 PRINT"BLOCK. IF YOU ARE CORRECT TH 
E COMPUTER" 

1042 PRINT"WILL REPEAT THE SEQUENCE AND 
ADD ANOTHER"; 

1043 PR I NT "COLOR TO IT." 
1045 PRINT 

1050 print"afTer each addition, you must 
retype the"; 

1051 print"entire sequence. you are all 
owed three" 

1052 print"mistakes per game." 

1055 pr i nt: pr i nt "press return to begin p 

LAY. " 

1 060 GET ANS« : I FANS«< >CHR« (13) THEN 1 060 
1990 RETURN 
2000 : 
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2001 :REM ««« SETUP 

2002 : 

2005 SID=54272: FORXsSIDTOSID+24: POKEI , O: 
NEXT:P0KESID-i-5,9 

2010 DIMSEQ(SO) :F0RI»1T050:SEQ(I>b1+INT( 
4*RND(0) ) :NEXT 

2015 P0KE53281 , 12: P0KE53280, 12: PRINT" tCL 

R>" 

2020 PL0T=49152: F0RI=0T024: READC: POKEPLT 
+I,C:NEXTI 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA152, 170, 164, 253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2030 F0RI=1T019STEP5 

2033 F0RJ=0T03 

2034 SYSPLOT, 10, J+I: PRINT" <RVS ON>{BLK> 
■I • 

9 

2035 NEXT 

2040 SYSPLOT, 20,1+1: PRINT" «RVS OFF>{WHTJ 
F" INT (1+2*1/5) : NEXT 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3005 POKESID+24, 12 

30 1 O FOR I = 1 T050 : SC= I - 1 -M : S YSPLOT , 8 , 23 : PR 
INT"MISSES: "M" {CSL> SCORE: "SC" iCSL 

y {HOME>"; 

3020 F0RJ=1T0I : PRINTMID* ( " {BRWN> €YEL> tSR 
N> {BLU>",SEQ(J>,1); 

3025 Y-5«SEQ (J) -3: SYSPLOT, 1 1 , Y: PRINT" tRV 
S 0N> 

3026 SYSPLOT, 11, Y+l: PRINT" {RVS 0N> 

3027 POKESID+1 , 60* (5-SEQ < J ) ) : POKESID+4, 3 
3 : FORP A= 1 T0200 : NE X T 

3028 POKES I D+4 , 32 : POKES I D+ 1 , O 

3030 SYSPLOT, 11, Y: PR I NT "{RVS ON>{BLK> 

n 

3031 SYSPLOT, 11, Y+l : PRINT" €RVS ON>{BLK> 
■I 

3035 NEXTJ 
3100 F0RJ=1T0I 
3105 X-0 

3110 GETX*: IFX*=""THEN3110 

3120 IFX*="{F1}"THENX=1 

3121 IFX»=" {F3> "THENX=2 

3122 IFX*="{F5>"THENX=3 
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3123 IFX*="tF7>"THENX=4 
3130 IFX=0THEN3110 

3135 PRINTMID* < " {BRWN> €YEL> <:GRN> {BLU> " , X 

3136 Y=S»X-3:SYSPL0T, 11,Y: PRINT" tRVS ONJ 
•I 

3137 SYSPLOT,ll,Y+l:PRINT"tRVS 0N> 

3138 POKESID+1 , 60* (5-X) : POKESID+4, 33: FOR 
PA=1T0200:NEXT 

3139 POKES I D+4, 32: POKES I D+ 1,0 

3140 SYSPLOT, 11, Y: PRINT" <RVS ONJtBLKJ 
II 

3142 SYSPL0T,11,Y+1: PRINT" tRVS ON>tBLK> 
II 

31S0 IFX=SEQ ( J ) THEN3200 

3 1 55 POKES I D+ 1 , 20 : POKES I D+4 , 33 : FORPA= 1 TO 
400: NEXT 

3156 POKES I D+4, 32: POKES I D+ 1,0 
3 1 60 M=M+ 1 : 1 FM< 3THEN3300 
3165 RETURN 

3200 NEXTJ 

3300 F0RPA=1T0500:NEXTPA:NEXTI 
3990 RETURN 

4000 : 

4001 :REM **« END 

4002 : 

4010 PRINT" «CLR>" 
4020 F0RJ=0T024 

4030 PRINTMID* < " {BLK> {WHT> CREDJ €CYN> tPUR 

> €GRN> tBLU> €YEL> €ORNS> tBRWN> tLT RED> €GRY 
IXGRY 2>{LT GRN>tLT BLU>tGRY 3>",1+INT 

( 16*RND (O) ) , 1 ) ; " {RVS 0N> " ; 

403 1 SYSPLOT , , J : PR I NT " 

II ■ 

4032 PRINTMID* < " tBLKJ {WHT> €RED> {CYN> <PUR 

> {GRN> iBLUy tYEL> <:ORNG> {BRWN> «LT RED> €GRY 
IXGRY 2><:LT GRNJtLT BLUXGRY 3>",1+INT 

( 16*RND (0) ) , 1 ) 5 " €RVS 0N> " ; 

4033 SYSPLOT , , 24- J : PR I NT " 

ii ■ 

4034 PRINTMID* < " CBLKJ CWHT> {REDJ €CYN> tPUR 

> <6RN> {BLU> €YEL> {ORNG> tBRWN> tLT REDJ tGRY 
l>tGRY 2>tLT GRN>{LT BLU>C6RY 3>",1+INT 

( 16«RND (O) ) , 1 ) ; " {RVS 0N> " ; 

4035 SYSPLOT , O , 24- J : PR I NT " 

•1 ■ 

» 

4036 PRINTMID* ( " {BLK> €WHT> €REDJ €CYN> CPUR 
> {GRN> CBLU> {YEL> {ORNG> «BRWN> €LT REDJ €GRY 

IXGRY 2>{LT 6RN>{LT BLU>CGRY 3>",1+INT 
(16«RND(0>>,1};"{RVS 0N>"; 
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4037 SYSPLOT, O, J : PRINT" 

" t 

4040 POKESIO+l , 10+2*J : POKESID+4, 33: FORPA 
=1T020:NEXT 

4045 P0KESID+4,32:P0KESID+1,0 
4050 NEXTJ 

4060 F0RI=1T0500:NEXT 
4070 PRINT" CCLR>" 
4080 SYSPLOT, 0,12 
4085 IFMO3THEN4110 

4090 PRINT" tBLK>CRVS OFF>«< I'M SORRY Y 
OU LOST . . .»>" 

4095 IFSC<1THENPRINT"Y0U GOT THEM ALL WR 
ONG ! ! ! " 

4098 IF SC<50 THEN PRINT" €BLK> {RVS OFF>Y 
OU GOT A TOTAL OF "SC" CORRECT" 
4100 RETURN 

4110 PRINT" CBLKXRVS OFF>«< YOU GOT ALL 

50 OF THEM !•! »>": RETURN 
4990 RETURN 
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Minioture 



This program is an excellent simulation of a game of miniature golf. There 
are nine holes on the course, which includes water traps, sand hazards, 
uneven hills, and blocks that you must go around. The graphics are 
undoubtedly the star attraction of this game, so let's first take a look at how 
each of the holes is created. Our graphics routine is included in lines 2030- 
2036. Each hole is placed in a subroutine of its own; the subroutine starting 
at line 2100 contains the graphic representation of hole #1, 2200 starts hole 
#2, 2300 hole #3, and so on through 2900 for hole #9. Try changing some of 
the colors in these routines for some interesting graphic effects. The rest of 
the graphics, including the movement of the ball, can be found in lines 
3000-3999. Your score, as well as your average per hole, is calculated in lines 
4025-4026. 

The ball (circle) is made with a SHIFT-Q. 

The horizontal bars are produced with SHIFT-I's. 

The vertical bars are produced with SHIFT-K's. 

The small squares (in the upper lefthand corners of the character position) 
are produced with a CMDR-V. 

The small squares (in the upper righthand corners of the character position) 
are produced with a CMDR-G. 

Other characters like CMDR-A, CMDR-S, CMDR-2, CMDR-X, SHIFT-G, 
appear also, as in line 25 30. 
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10 

11 

12 

13 



REM *««'»'»*')i-««**'K"N"K'«"K-'K"K'*«- 

REM *«* *** 
REM *« MINIATURE GOLF ** 
REM *»* *** 



14 REM 

15 : 
Ih : 

20 gosub 1000: rem instructions 
30 60sub20oo:rem setup 

40 G0SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTS 

1002 : 

1003 P0KE53281 , 1 : P0KE53280, 1 
1010 PRINT" tCLRJCGRY 2>" 

1020 PRINTTAB<9) "*♦* MINIATURE GOLF *♦« 
1025 PRINT: PRINT 

1030 PRINT-WELCOME TO THE CAPELLA COUNTR 
Y CLUB. THIS BEAUTIFUL NINE-HOLE 

1031 PRINT"MINIATURE GOLF COURSE IS OPEN 
AND WAITING FOR YOU !" 

1035 PRINT 

1040 PR I NT "YOU SHOULD KNOW THE IDIOSYNCR 
ASIES OF THE COURSE BEFORE YOU BEGIN P 
LAY. 

1041 PRINT 

1045 PR I NT "TO PUTT THE BALL, YOU HAVE TO 
INPUT WHICH DIRECTION YOU WANT TO"; 

1046 PRINT" AIM IT." 

1047 PRINT"THERE ARE EIGHT DIRECTIONS, S 
HOWN BELOW. YOUR BALL IS ASSUMED TO BE AT 

*. " 

1050 PRINT:PRINTTAB(17>"2 1 8":PRINTTAB( 

17) "3 » 7":PRINTTAB<17) "4 5 6" 

1060 PR I NT: PR I NT: PR I NT "PRESS RETURN WHEN 

READY TO CONTINUE" 
1065 GETX*: IFX«<>CHR«<13)THEN1065 
1070 PRINT" €CLR>" 

1075 PRINTTAB<9)"»»* MINIATURE GOLF *♦* 

1076 PRINT: PRINT 

1080 PR I NT "THEN YOU MUST INPUT HOW HARD 
TO HIT THE BALL. THE SPEED SHOULD "; 

1081 PR I NT "BE SOME NUMBER BETWEEN 0.00 
AND 5.00. FOR EXAMPLE, YOUCOULD"; 

1082 PRINT" HIT THE BALL A RELATIVE SPEE 
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D OF 3.2." 
1085 PRINT 

1090 PRINT" IT WILL TAKE A FEW TRIES BEFO 
RE YOU GET THE FEEL OF HOW HARD TO PUTT 



1095 PRINT"THE BALL. ": PRINT 
1100 PRINT"ALSO, THERE ARE FOUR TYPES OF 
HAZARDS ONTHE COURSE. YOU SHOULD 

1105 PRINT"BE AWARE OF WHATTHEY ARE AND 
WHAT AFFECT THEY HAVE ON YOU "J 

1106 PR I NT "AND YOUR BALL." 

1110 PRINT: PRINT: PRINT: PRINT"PRESS RETUR 

N WHEN READY TO CONTINUE" 

1115 GETX»:IFX»<>CHR«(13)THEN1115 

1120 PRINT" CCLR>" 

1125 PRINTTAB(9)"»*» MINIATURE GOLF **» 

1126 PRINT: PRINT 

1130 PRINT"BLOCKS: THESE ARE LIKE WALLS. 

YOU MUST PUTT AROUND THEM." 
1135 PRINT 

1140 PRINT" YELLOW TRAPS REPRESENT SAND. 
YOUR BALL CANNOT PENETRATE THROUGH "; 

1141 PRINT"A SAND TRAP. THE PENALTY FO 
R LANDING IN THE SAND IS ONE STROKE." 
1145 PRINT 

1150 PR I NT "WATER: LIKE SAND, THESE BLUE 
HAZARDS WILL SLOW AND STOP YOUR BALL. 

II a 

1151 PRINT" THE PENALTY FOR LANDIN 
G IN WATER IS ONE STROKE." 

1155 PRINT 

1160 PRINT"UNEVEN SURFACES: THESE RED HA 
ZARDS CAUSETHE BALL TO ROLL IN "; 

1165 PRINT"A DIRECTION WHICH ISUNPREDICT 
ABLE. THERE IS NO PENALTY "; 

1166 PRINT"FORHITTING THIS HAZARD." 
1170 print: PRINT: PRINT"PRESS RETURN WHEN 

READY TO CONTINUE" 
1175 GETX*: IFX*<>CHR*(13)THEN1175 
IIBO PRINT" {CLRJtGRY 2>" 

1185 PRINTTAB(9) "«** MINIATURE GOLF *♦♦ 

1186 PRINT: PRINT 

1190 PRINT" YOU ARE TRYING TO SINK THE BA 
LL IN AS FEW TRIES AS POSSIBLE. "; 

1191 PRINT"THE HOLE IS THE BLACK SQUARE. 
II 

1195 PRINT 

1200 PRINT" IF YOU HIT THE BALL TOO HARD, 

IT WILL JUMP OVER THE HOLE AND "; 
1205 PRINT"CONTINUE ROLLING. IT MAY ALSO 
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CHANGE DIRECTION, SO BE SURETO HIT 
1206 PR I NT "THE BALL JUST HARD ENOUGH." 
1210 PRINT: PRINT: PRINT"PRESS RETURN WHEN 

READY TO CONTINUE" 
1215 GETX*: IFX«<>CHR*<13)THEN1215 

1990 RETURN 

2000 : 

2001 :REM *** SETUP 

2002 : 

2010 DIMHA(9,5) :F0RI=1T09:F0RJ=1T05:READ 
HA < I, J): NEXT: NEXT 

2011 DATA 0,0,0,0,2 

2012 DATA 1,0,0,0,3 

2013 DATA 0,1,0,0,3 

2014 DATA 1,1,0,0,3 

2015 DATA 0,0,0,1,3 

2016 DATA 0,0,1,1,3 

2017 DATA 1,0,1,0,3 

2018 DATA 0,1,1,0,4 

2019 DATA 0,0,1,1,3 

2020 DIMDI (8, 2) : F0RI=1T08: READDI ( I , 1 ) , DI 
(I,2):NEXT 

2025 DATA 0,-1, -1,-1, -1,0, -1,1, 0,1, 
1,1, 1,0, 1,-1 

2030 PLT=49 1 52 : FOR I =0T024 : READC : POKEPLT+ 

i,c:nexti 

2031 DATA32, 16, 192, 132 

2032 DATA253, 32, 16, 192 

2033 DATA 1 52 , 1 70 , 1 64 , 253 

2034 DATA24,76,240,255 

2035 DATA32, 253, 174,32 

2036 DATA158, 173,76, 170, 177 

2040 DIMV (8) : F0RI=1T08: READV < I ) : NEXT: DAT 
A-40, -41 , -1 , 39, 40, 41,1, -39 
2050 : 

2055 DEF FNC0(X)=PEEK<55296+BX+40»BY+X)A 
ND15 

2060 DEF FNSC(X)=PEEK<1024+BX+40»BY+X) 
2090 RETURN 
2100 REM *** HOLE 1 

2105 G0SUB2050 

2106 PRINT" €HOME>" 
21 10 PRINTTAB ( lO) " <BLK> 



2112 F0RI=1T015 

21 15 PRINTTAB X 10) " {RVS 0N>» <GRN> 
{RVS OFF>{BLK>|" 

2120 NEXT 

2125 PRINTTAB < 10) "{BLK> ={RVS 0N> 
bCRVS 0FF>=" 
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2130 PRINT" CHOriE> <CSD> tCSDJ <CSD> {CSD> "TA 
B<19)"{RVS 0N> " 

2135 BY-16: BX=1 1+INT ( i7«RND (O) ) : SYSPLT, B 

X, BY: PRINT" €RVS 0N>{6RN>iiii>" ; 

2140 RETURN 

2200 REM *** HOLE 2 

2205 G0SUB2050 

2206 PRINT" {HOME>" 

2210 PRTMTTARfP>"fni if-i. ^ 

2212 F0RI=1T05 

2215 PRINTTAB(8) "{RVS ON>i {GRN> 

CRVS OFF}€BLK>|" 

2220 NEXT 

2221 PRINTTAB(8) "{RVS 0N>| <;GRN> 
<:BLU> {BLK> mmmmmmmmmmmiRy/S OFF>- " 

2222 PRINTTAB(8)"€RVS ON>i {GRN} 
<BLU> <RVS OFF>€BLK>|" 

2223 PRINTTAB(8) "CRVS 0N>| {GRN> 
{BLU> {RVS OFF>€BLK>|" 

2224 PRINTTAB<8) "€RVS 0N>| {GRN> 
tBLU> tRVS OFFltBLKJi" 

2225 PRINTTAB(8> "{RVS 0N>| CGRN> 

{RVS OFF>{BLK>|" 

2226 F0RI»1T06 

2227 PRINTTAB(8>"{RVS 0N>| <:GRN> 

{RVS OFFJ{BLK>|" 
2230 NEXT 

2235 PRINTTABCS)" "{RVS ONJ mmmmmmmmmmmmmmmmm 
ni{RVS OFF>- " 

2240 BY= 1 7 : BX=9+ I NT ( 1 5*RND ( O ) ) : SYSPLT , BX 

, BY : PRINT " {RVS ONJ {GRN> » " ; 

2245 PRINT" {HOME> {CSD> {CSD> {CSD> {CSD> "TA 

B (30) "{RVS ON>{BLK> " 

2250 RETURN 

2300 REM *** HOLE 3 

2306 PRINT" {HOME>" 

2310 PRINTTABf20> "<:BU<:> ^mmmmmmmm mmmm mmm laiim iiini 

■I 

2312 F0RI=1T05 

2315 PRINTTAB(20)"{RVS 0N>| {GRN> 
{RVS OFF>{BLK>|" 

2320 NEXT 

2321 PRINTTAB<8)"{RVS OFPy mmmmmmmmmmmmiR 
VSON>«{GRN> {RVS OFF>{BLK 
>l" 

2322 PRINTTAB(8)"{RVS ON>i {GRN> 

{RVS 0FF>{BLK>1" 

2323 PRINTTAB<8>"{RVS ON>i {GRN> 

{YEL> {RVS OFF>{BLK>|" 
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2324 PRINTTAB(8)"tRVS ON>i <GRN> 

{YEL> €RVS OFF>^BLK>|" 

2325 PRINTTAB(8) "{RVS ON>l <:BRN> 

{YEL> CRVS 0FF>€BLK>|" 

2326 PRINTTAB(8)"tRVS 0N>| <GRN> 

tYEL> €GRN> tRVS OFFXBL 

K3'i " 

2335 PRINTTAB(8) "<RVS 0N>| {GRN> 

{BLK> IB -TRVR OFF>- " 

2340 F0RI=1T04 

2345 PRINTTAB(8)"«RVS ONJl tGRNJ 

tRVS OFF>tBLK}|" 
2350 NEXT 

2355 PRINTTAB(8) "tRVS OFF> "tRVS □N>s^»BmiB) 

2360 PRINT" tHOME} tCSD> tCSD> tCSD> "TAB (32) 
"tRVS aN>tBLK> " 

2365 BY=17: BX=9+INT < 15*RND (0) ) : SYSPLT, BX 
, BY: PRINT" tGRN> tRVS 0N>»" 
2390 RETURN 
2400 REM »*♦ HOLE 4 
2406 PRINT" tH£JME>" 
2410 PRINTTAB<7)"tBLK> 



2412 F0RI=1T06 

2415 PRINTTAB(7)"tRVS ON>I tBRNJ 

tRVS OFF>tBLK>«" 

2420 NEXT 

2421 PRINTTAB(7)"tRVS ON>l tGRN> 

tBLK!^ wmmmmmmmmm tGRNJ tRVS OFF} t 

BLK>| " 

2425 F0RI=1T04 

2430 PRINTTAB<7)"tRVS 0N>| tGRN> 
tBLK>tRVS OFF>| tRVS ONJi tGRN> 

tRVS OFF>tBLK>«" 
2435 NEXT 

2440 PRINTTAB<7) "tRVS ON>| tGRN> 

tBLK>tRVS OFF>| "tRVS ^mw^mmmmmmm 

H«tRVS OFF}-" 
2445 F0RI=1T03 

2450 PRINTTAB(7)"tRVS ON>i tSRNl 

tBLK>tRVS OFF>i" 
2455 NEXT 

2460 PRINTTAB(7>" 'tRVS XMi wmmmmmmmmmm^^V^ 
OFFJ" " 

2465 PRINT" tHOME> tCSD> tCSD> "TAB < 18) " tYEL 
>tRVS 0N> tCSD> tCSL> tCSL> tCSL> tCSL 

} tCSL> tCSLJ tCSDJ tCSL> tCSL> tCSL> tCSL 

} " 

2470 PRINTTAB(25)"tBLU>tRVS 0N> tCSD>tCS 



196 



L> «CSL> tCSL> <CSD> tCSL> {CSL> <CSL> CCSL> 
tCSL> 

2475 SYSPLT,32, 10:PRINT"CRVS 0N>{BLK> " 

2480 BY»16: BX=8+INT ( 10«RND (O) ) : SYSPLT, BX 

, BY : PR I NT " < RVS ONJ tGRN> « " 

2490 RETURN 

2500 REM *«« HOLE 5 

2506 PRINT" €HOME>" 

2510 PRINTTAB(IO) "<:BLK> mmmmmnmmmmmmrmmmmmm 
^ ^ ^ " 

25i2 FORI=lT015 

2515 PRINTTAB(10)"{RVS 0N>| {6RN> 

{RVS OFF>{BLK>|" 

2520 NEXT 

2525 PRINTTABdO) "tBLK> «{RVS ON>«sB«fflsfflBB 

mmmmmmmmmmmmmmmmmmiR\fS OFF>- " 

2530 SYSPLT, 19, 6: PRINT" tRVS ON>{GRN> <- 

._! ■■ 

2535 SYSPLT, 22, 4: PRINT" {BLK>CRVS 0N> " 

2540 BY=16: BX=1 1+INT (23*RND <0) ) : SYSPLT, B 

X, BY: PRINT" {GRN> {RVS 0N>»" 

2590 RETURN 

2600 REH «*« HOLE 6 

2605 60SUB2050 

2606 PRINT" {HOME>" 

26 lO PRINTTAB(8)"{BLK} „mm i 



2612 F0RI=1T07 

2615 PRINTTAB<8) "{RVS 0N>| {BRN> 

{RVS OFF>{BLK>|" 

2620 NEXT 

2625 PRINTTAB(8) "{RVS ONJi {GRNJ 

{BLK> MmM«mM».»i»{RVS OFF>- " 
2630 F0RI=1T07 

2635 PRINTTAB(8)"{RVS 0N>| {GRN> 

{RVS OFF>{BLK>|" 
2640 NEXT 

2645 PRINTTAB(8)" -{RVS nM>i,iiiii,iiiiiiiiiii,iiMiiiiiiiiiii^iiiiii.„iiiM 
m{RVS 0FF>- " 

2650 SYSPLT, 27, 4: PRINT" {RVS ON>{GRN> r{CS 
D> {CSLJ i {CSD> {CSL> 

2655 SYSPLT, 20, 5: PRINT" {RED> {RVS 0N> 
{CSD> {CSL> {CSL> {CSL> {CSL> {CSL> {CSL> 

{CSD> {CSL> {CSL> {CSL> {CSL> {CSL> {CSD 
> {CSL> {CSL> {CSL> 

2660 SYSPLT, 30, 5: PRINT" {RVS ON>{BLK> " 

2665 BY=16: BX=9+INT ( 15*RND (O) ) : SYSPLT, BX 

, BY: PRINT" {RVS □N>{GRN>«" 

2690 RETURN 

2700 REM *♦» HOLE 7 
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2706 PRINT" CHOME>" 

2710 PRINTTAB(8) "tBLK> mmmmmmmmmmmmmmmm " 
2712 F0RI=1T04 

2715 PRINTTAB(8)"<RVS 0N>| CeRN> 
tRVS OFFJtBLKll" 

2720 NEXT 

2721 PRINTTAB<8)"{RVS ON>l {GRN> 
{BLK> "CRVS OFF>»M.»Mnw»>i»»iion<> " 

2725 F0RI=1T04 

2727 PRINTTAB(B)"{RVS 0N>| {GRN> 

tBLKXRVS OFF>|" 

2730 NEXT 

2735 PRINTTAB(B)"<BLK> "CRVS QN> miiiimiiiiw w 
mmmmmmmlSRm €BLK> tRVS □FF>| 

■1 

2740 F0RI=1T05 

2745 PRINTTAB(24) "tRVS 0N> tBLKJl tGRN> 
{BLK>{RVS OFF>i" 

2750 NEXT 

2755 PRINTTAB(24) "{BLK> "{RVS ON>i»MM»mNMB 
im iiii iH iii iiMNiii i ii ia^RVS OFFJ' " 

2760 SYSPLT,9,7:PRINT"{BLU>{RVS ON> { 
CSD> CCSLJ tCSL> tCSL> <CSL> €CSD> CCSL> <. 

CSL> {CSL> tCSL> €CSD} {CSL> tCSL> {CSL> 

ccsl3' ccsl}' " 

2765 SYSPLT,27,7:PRINT"CRED>{RVS 0N> 

{CSD> {CSL> tCSLJ <CSL> tCSLJ tCSLJ <CSL> 
<CSD> <CSL> tCSL J tCSL> tCSL> {CSL> tCSL 
> CCSD> {CSL> {CSL> CCSL> {CSL> <:CSL> tC 

SL>{CSL> 

2770 SYSPLT, 13,4:PRINT"<RVS 0N>{BLK> " 
2775 BY=16: BX=25+INT ( 13*RND <0) ) : SYSPLT, B 
X, by: PRINT" CRVS ON>{GRN>«" 

2799 RETURN 

2800 REM ««« HOLE 8 
2806 PRINT" tHOME>" 

2810 PRINTTAB <7) " {BLK> mmmmmmmmm m mmmmmmm 

IWJIllllllililJlliilllilllWMIIIiMIIIIWIIIlllWllMIW " 

2812 F0RI=1T06 

2815 PRINTTAB (7) "{RVS 0N>| {GRN> 

{RVS QFF>tBLK>|" 

2820 NEXT 

2821 PRINTTAB (7) "{RVS 0N>| {GRN> 

CBLK> ^BMMwwww {GRN> CRVS OFF> { 

BLK>| " 

2825 FDRIS1T04 

2830 PRINTTAB (7) "{RVS ON>i {GRN> 
{BLK>{RVS OFF}! {RVS 0N>| {GRN> 

{RVS OFF>{BLK>B " 
2835 NEXT 
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2840 PRINTTAB<7) " «{RVS ON> ■™»»«™«„£RVS 
OFF>" <RVS ON>i <:6RN> IBL 

K>«RVS OFF>i" 
2845 F0RI=1T03 

2850 PRINTTAB(26} "CRVS ONlR {GRN> 

€BLK>£RVS OFF>BI " 
2855 NEXT 

2860 PRINTTAB(26) "{RVS ON> ■wwffl«»,«»»M,tRV 
S OFF>» •■ 

2865 SYSPLT,28,2:PRINT"£RVS ON>{REO> 
•I 

2866 SYSPLT,29,3:PRINT"tRVS 0N> 

2867 SYSPLT,30,4:PRINT"£RVS 0N> 

2868 SYSPLT,30,5:PRINT"£RVS 0N> 

2869 SYSPLT,32,6:PRINT"«RVS 0N> 

2870 S YSPLT , 33 , 7 : PR I NT " {RVS 0N> 

2875 SYSPLT, 13,3:PRINT"{RVS ON>CYEL> C 
CSDJ {CSL> {CSL> CCSLl {CSL> {CSO> €CSL> <. 

CSL> {CSL> €CSL> £CSL> {CSD> tCSL> <CSL> t 

CSL> CCSLJ 

2880 SYSPLT, 13, lOS PRINT" tRVS ONXiBLKJ " 
2885 BY=16: BX=27+INT ( 10*RND (O) ) : SYSPLT, B 
X, BY: PRINT" {RVS ON>{eRN>#" 
2890 RETURN 
2900 REM **• HOLE 9 

2905 G0SUB2050 

2906 PRINT" tHQME>" 

2910 PRINTTAB(8)"{BLK> Bmmmmmmmmmmwmmmm 
2912 F0RI=1T09 

2915 PRINTTAB(8)"{RVS ONJi tBRN> 

{RVS OFF>{BLK>l|" 

2920 NEXT 

2921 PRINTTAB(S)" "{RVS ONymmmmmmmmm 
S ON>,{eRN> {RVS OFF>{BLK> 

W " 

2925 F0RI=1T05 

2927 PRINTTAB<20)"{RVS ON>i {GRN> 

{RVS 0FF}{BLK>i8" 
2930 NEXT 

2935 PRINTTAB<20) " "'{RVS Om ,^mmmmmmmm 
mH{RVS OFF>'" " 

2940 SYSPLT, 21, 2: PRINT" {RVS ON>{RED> 

II 

2941 SYSPLT, 22, 3: PRINT" {RVS 0N> 
■I 

2942 SYSPLT, 23, 4: PRINT" {RVS 0N> 

H 

2943 SYSPLT, 24, 5: PRINT" {RVS 0N> 



■ 
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2944 SYSPLT,25,6:PRINT"€RVS 0N> 

2950 SYSPLT, ll,6:PRINT"tBLK>tRVS ONJ " 
2955 SYSPLT, 14,5:PRINT"tRVS 0N> {BRN> < CS 
D> CCSLJ I {CSD> {CSL>-' •• 

2960 BY=16:BX=21+INT<15*RND(0) ) : SYSPLT, B 
X, BY: PRINT" <RVS ON>{eRN>i»" 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

30 1 O FORHO« 1 T09 : BC*= " <GRN> " 
3015 PRINT" <CLR>"S 

3020 0NH0G0SUB2 1 00 , 2200 , 2300 , 2400 , 2500 , 2 
600 , 2700 , 2800 , 2900 

3030 PRINT" tHOMEXRVS ON>tLT BLU>HOLE NU 
MBER: "HO "PAR: "HA C HO, 5) "SCORE: "SC 

3031 PRINT: PRINT"TRAPS: " : IFHA (HO, 1 ) THENP 
RINT" tBLU> WATER" 

3032 IFHA (HO, 2) THENPRINT" CYELJSAND" 

3033 IFHA (HO, 3> THENPRINT" tRED>UNEVEN" 

3034 IFHA (HO, 4) THENPRINT" {BLKJBLOCKS" 

3035 PRINT: PRINT" tRVS 0N>«BLK>2 1 8":PRI 
NT"tRVS 0N>3 « 7":PRINT"{RVS 0N>4 5 6" 

3036 SYSPLT, O, 19: F0RI=1T05: PRINT" 

":NEXT 

3038 D*=" ": SYSPLT, O, 20: INPUT"DIRECTION ( 
1-8) " ; D«: DIR^VAL (D«> 

3040 I FD I R >OANDD I R< 9ANDD I R= I NT ( D I R > THEN3 
045 

3041 PRINT "THE DIRECTION IS FROM 1 TO 8 
. . . " : F0RPA=1T01500: NEXT: G0T03036 

3045 SYSPLT, O, 19: F0RI=1T05: PRINT" 

":NEXT 

3046 D*="": SYSPLT, 0,20: INPUT" SPEED (0-5) 
";D«:SP»VAL(D«) 

3050 ifsp=>0andsp<=5then3055 

3051 print"the direction is from o to 5 
. . . " : forpa= 1 to 1 500 : next : 60t03045 

3055 uf»o:rem clear uneven flag 

3056 tf=o:rem clear trap flag 
3100 x2=bx+di (di , 1 ) : y2=by+di (di , 2) 

3110 d2= v ( d i ) : co=fnco ( d2 ) : i fco< >50rfnsc ( 

D2 ) <> 1 60THEN3 1 20 

3115 SYSPLT, BX, by: PRINTBC*"{RVS 0N> ";:B 
X=X2: BY=Y2: SYSPLT, BX, BY: PRINT" CRVS 0N> tG 

RN>#"; 

3116 BC*= " « GRN> " : G0T03900 

3120 IFC0«0ANDFNSC(D2)<>160THEN3200:REM 
HIT A WALL 
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3121 IFC0»6THEN3300:REM WATER 

3122 IFC0=7THEN3400:REM SAND 

3123 IFC0»2THEN3S00:REM UNEVEN 

3124 IFC0-0THEN3600:REM THE HOLE 

3125 REM WE HIT A BLOCK 

3200 IFDI«10R0I»3THENDI«DI-i-4: 60T03100 

3201 IF0I»70RDI»5THENDI«DI-4: 60T03100 
32 1 O OND I /2G0T03220 , 3240 , 3260 , 3280 

3220 I FFNSC ( D2+ 1 ) <> 1 60ANDFNSC < D2+40 ) <> 1 6 
0THENDI~6: 60T03100 

3225 I FFNSC ( D2+ 1 ) <> 1 60THEND I =4 : G0T03 1 00 
3230 I FFNSC < D2+40 ) <> 1 60THEN0 1 =8 : G0T03 1 00 
3235 01=6: G0T03 100 

3240 IFFNSC (D2+1 ) < >160ANDFNSC <D2-40) < >16 
0THENDI=8: G0T03100 

3245 IFFNSC (D2+1 ) < >160THENDI=:2: G0T03100 
3250 I FFNSC ( D2-40 ) <> 1 60THEND I =6 : G0T03 1 00 
3255 DI=8:G0T03100 

3260 IFFNSC (D2-1 ) < >160ANDFNSC (02-40) < >16 
0THEN0I=2: G0T03100 

3265 I FFNSC < 02- 1 ) <> 1 60THEN0 1 =8 : G0T03 1 00 
3270 IFFNSC (02-40) < >166THEN0I»4: G0T03100 
3275 0I»2:G0T03100 

3280 IFFNSC (02-1 ) < >160AN0FNSC (02+40) < >16 
OTFCNO I =4 : G0T03 1 00 

3285 I FFNSC ( 02- 1 ) <> 1 60THEN0 I =6 : G0T03 1 00 
3290 I FFNSC ( 02+40 ) <> 1 60THEN0 I =2 : G0T03 1 00 
3295 01=4: G0T03 100 
3300 IFTFTHEN3310 

3305 TF=3: SC=SC+1 : REM TRAP FLAG 
3310 SYSPLT,BX,By:PRINTBC*"{RVS 0N> 
3315 BX=X2: BY=Y2: SYSPLT, BX, BY: PRINT" {BLU 
> <RVS 0N> » " ; : BC«= •' t BLU> " 
3320 G0T03900 

3400 iftfthen3410 

3405 tf=3:sc=sc+i:rem trap flag 

3410 sysplt, bx, by: printbc*"{rvs 0n> "; 

3415 bx=x2: by=y2: sysplt, bx, by: print" cyel 

><:RVS 0NJ»"; :BC*="tYEL>" 
3420 G0T03900 
3500 IFUFTHEN3520 

3505 UF=l:REM UNEVEN FLAG, HAVE RE ROLLE 
BALL OFF COURSE YET?... 
3510 0I=DI+2*INT(2»RN0(0) )-l 

3515 IF0I=0THEN0I=8 

3516 IF0I=9THEN0I=1 

3520 SYSPLT,BX,BY:PRINTBC*"<RVS 0N> "5 
3525 BX=X2: BY=Y2: SYSPLT, BX, BY: PRINT" {.RED 
y tRVS 0N> • " ; : BC*= " {REO> " 
3530 G0T03900 
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3600 SYSPLT,BX, by: PRINT" tRVS ON>{GRN> ": 
SYSPLT,X2,Y2: PRINT" €RVS ON}«WHT> " 

3601 SYSPLT,X2,Y2: PRINT" tRVS ON>€BLK> 

3602 DI=DI+2»INT(2*RND(0))-1 

3604 IFDI-OTHENDI=B 

3605 IFDI=9THENDI=1 

3606 SP=SP-- 5: IFSP>0THENX2=X2+DI (DI , 1 ) : Y 
2=Y2+DI (DI,2) :eOT03110 

3610 SC=SC+l:GDT03990 
3900 : 

3902 IFTF>OTHENTF=TF-l: IFTF=0THEN3910 
3905 SP=SP- .3:1 FSP >0THEN3 1 00 
3910 SC=SC+l:B0T03030 
3980 GETX*: IFX*=""THEN3980 
3990 NEXTHO: RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4005 F0RPA=1T0200:NEXTPA 

4010 PRINT" <CLR> €CSD> CCSD> {CSD> " ; TAB (9> " 
*** MINIATURE SOLF »**" 
4015 PRINT: PRINT: PRINT: PRINT 
4020 PR I NT "THE GAME IS OVER !" 
4022 PRINT 

4025 PRINT "ON THE PAR 27 COURSE, YOU SHO 
T": PRINT" A ROUND OF"SC". THAT IS AN" 

4026 PRINT"AVERABE OF" INT <SC»100/9) /lOO" 
SHOTS PER HOLE." 

4030 PRINT: PRINT: PRINT 

4035 PRINT"HOPE YOU ENJOYED THE GAME!" 
4990 RETURN 
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This is a paddle game for one player. The object is to shoot the different 
colored targets that move across the screen. For the most part, this is a game 
of dexterity and timing, but there is a Uttle bit of luck involved as well. As 
you can see, there is a color bar across the bottom of the screen which is set 
up in lines 2045 (the bar itself), 2050 (the target values), and 205 1 (the white 
bar at the bottom of the screen). Once again, the graphics routines may be 
found in lines 3000 and following. The section that the REM in line 40 calls 
PLAY! is actually where all of the WORK is being done (movement of the 
targets, of the missile launcher, and the missile). As usual, feel free to 
modify the program to suit your needs. 

The circle in line 3547 can be produced with a SHIFT- W. 
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10 

11 

12 
13 



REM ***«**»*«««»***»*«** 
REM *** *** 
REM ** MOVING TARGET ♦* 
REM **» 



14 REM 

15 : 

16 : 

20 GOSUB 1000: REM INGTRUCTIONS 

30 G0SUB2000:REM SETUP 

40 G0SUB3000:REM PLAY! 

50 G0SUB4000:REM !END! 

60 END 

70 : 

1000 : 

1001 :REM *«« INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,12: P0KE53280 , 1 4 

1010 PRINT" €CLR>" TAB ( 10) "{BLU>*** MOVING 

TARGET »*»" 
1015 PRINT: PRINT 

1020 PRINT" IN THIS GAME, YOU CONTROL A M 
ISSILE' S" 

1030 PR I NT "LAUNCH SITE. THE LAUNCHER IS 
CONTROLLED"; 

1031 PRINT"BY PADDLE #1 (PORT 2)..." 

1032 PRINT 

1040 PRINT"PRESSING THE BUTTON ON THE PA 
DDLE WILL" 

1041 PRINT"RELEASE A ROCKET. TRY TO HIT 
ONE OF THE"; 

1042 PR I NT "THREE MOVING TARGETS ABOVE YO 
U. " 

1050 PRINT:PRINT"DIFFERENT COLORS ARE WO 
RTH DIFFERENT" 

1051 PR I NT "AMOUNTS OF POINTS. SHOOT FOR 
THE BEST SCORE." 

1055 PR I NT: PR I NT: PR I NT "PRESS RETURN TO B 
EGIN PLAY!" 

1 060 GETANS* : I F ANS«< >CHR« (13) THEN 1 060 
1990 RETURN 

2000 : 

2001 :REM ♦** SETUP 

2002 : 

2020 PL0T=49664 : FOR I =0T024 : RE ADC : POKEPLT 
+I,C:NEXTI 

2021 DATA32, 16, 194, 132 

2022 DATA253,32, 16, 194 

2023 DATA 1 52 , 1 70 , 1 64 , 253 
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2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2030 DIMTA(3,4) 

2035 F0RI=1T03:TA<I, 1)=INT(37*RND(0) ) :TA 
(1,2) =1+INT < <4+I+I ) ♦RND <0) ) 

2036 TA(I,0>»2«INT(2«RN0(0))-1 

2037 TA(I,3)«0:TA<I,4>»l-i-INT(20*RND(0} >: 
NEXT 

2038 OIMSC ( 15) : F0RI=0T015: REAOSC ( I ) : NEXT 

2039 DATA80, 50, 40, 10, 100, 20, O, 30, O, 90, O, 

0. 0.70.60.0 

2040 PRINT" tCLR>"; 

2045 SYSPLOT, 0,22: PRINT" tRVS 0N> <CYN> 
tGRNJ {YELJ {RED> €WHT> {LT 
BLU> {LT GRN> {BLKJ {BRWN> 

tPUR> 

2050 PRINT" tWHTJ 10 20 30 40 50 60 
70 80 90 10 

2051 PRINT" {WHTXRVS 0N> 

2055 P0KE2023, 160:P0KE56295, 1 

2060 CO*="€CYN>{SRN>{YEL>{RED>{WHT>{LT B 

LU> tLT GRN> {BLK> {BRWN> tPURJ " 

2 1 30 pdl=49 1 52 : for i =0t063 : re aoc : pokepdl+ 

1, c:nexti 

2131 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69, 192, 141 , 2, 220, 169 

2132 DATA128, 141 , 0, 220, 160, 128, 234, 136, 1 
6,252, 173,25,212, 157 

2133 DATAl, 193, 173,26,212, 157,3, 193, 173, 
O, 220, 9, 128, 141 , 5, 193 

2134 DATA169,64,202, 16,222, 173,0, 193, 141 
,2,220,173,1,220,141 

2135 D AT A6, 193,88,96 
2990 RETURN 

3000 : 

3001 rREM *♦* PLAY 

3002 : 

3020 G0SUB3600 

3040 NM»NM-i-l: IFNM<200THEN3020 
3500 SYSPDL : P= I NT ( < 256-PEEK ( PDL+258 ) ) /6 . 
5) : IFP=PPTHEN3520 

3510 SYSPL0T,PP,21:PRINT"tRVS OFF> ";:SY 
SPLOT,P, 21: PRINT" {RVS ON>tBRY 3> ";:PP=P 
3520 IFFO0THEN3540 

3525 SYSPDL : I FPEEK < PDL+26 1 ) »25STHENRETUR 
N 

3530 F=l:SX=PP:SY=20 

3540 SYSPL0T,SX,SY: PRINT" {RVS OFF> ";:SY 
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=SY-1 

3542 S YSPDL : I FPEEK ( PDL+26 1 ) < >255THEN3530 

3545 I FSY< OTHENF=0 : RETURN 

3546 CH=PEEK ( 1024+SX+40«SY) : IFCH< >32THEN 
3551 

3547 SYSPL0T,SX,SY: PRINT" {RVS OFF><WHT>o 
" S ! RETURN 

3551 Z= (SY>12) + (SY>7) + <SY>2> : Z=-Z 

3552 PT=PT+SC (PEEK (55296+SX+40»SY) AND15) 
*<4-Z) 

3553 F=0: TA ( Z , 3> =0: TA < Z , 4) =1+INT (20»RND < 
O)) 

3554 TA<Z,0)=2*INT<2»RND<0))-l:TA(Z,2)=l 
+INT( (4+I+I)*RND<0) ) 

3560 SYSPL0T,8,24:PRINT"«RVS QN>{WHT>«< 

YOUR SCORE IS "PT"»>"; 
3565 RETURN 
3600 F0RI=1T03 
3602 G0SUB3500 

3605 PRINT" {RVS 0FF}"5 :F0RJ=I*5-2T0I*5-1 
: SYSPLOT, TA ( I , 1 ) , J : PRINT" " ; : NEXT 

3615 TA(I, 1)=TA<I, 1)+TA<I,0) 

3616 TA<I,3)=TA(I,3>+1 

3617 IFTA(I,3)<>TA(I,4)THEN3621 

3618 TA(1,3)=0:TA(I,4)=1+INT(20*RND(0) ) : 
TA ( I , O) =2*INT (2*RND (O) ) -I 

3619 TA ( 1 , 2> =1+INT ( (4+I+I ) »RND (O) > 

3621 IFTA<I,1)<0THENTA<I,1)=36 

3622 IFTAd, 1) >36THENTA(I, 1)=0 

3625 PRINTMID«(C0«,TA(I,2>,1); 

3626 PRINT" <RVS 0N>"; :F0RJ=I»5-2T0I*5-l: 
SYSPLOT, TA < 1 , 1 ) , J: PRINT" " ; : NEXT 
3630 NEXTI: RETURN 

3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4010 F0RPA=1T0500:NEXT 

4020 PRINT" {HOME>{WHTJTHE GAME IS OVER ! 



4030 PR I NT "YOUR FINAL SCORE IS"PT 
4990 RETURN 



I I " 
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This game is a spin-off from a popular game show. The object is to eliminate 
as many numbers as you can from the list before you get stymied. To begin, 
you are given a list of numbers ranging from 1 through 9. A pair of dice are' 
rolled. The total (2-12) must be subtracted from the list. Most of the 
numbers can be removed from the list in a multitude of ways. If the first 
number rolled is a nine, there are eight possible ways to total exactly nine. 
They are: 

1.2, and 6 2,3, and 4 3 and 6 4 and 5 9 by itself 

1.3, and 5 2 and 7 
1 and 8 



According to the rules, you may remove any of these combinations as long 
as the total is nine. There are many different strategies, but you can develop 
your own. Let's look at the program: lines 2125-2169 draw the list of nine 
numbers. Lines 2340-2392 draw the dice. Once you type the listings into 
your Commodore, it will be much easier to see what is what, as far as 
graphics is concerned. Experiment with any lines that you don't understand 
and note how your changes affect the program overall. 

In hnes 2340 and following, the dots can be produced with a SHIFT-Q. 
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10 REM 

11 REM *♦» *** 

12 REM ♦* NUMBERS AWftY *» 

13 REM **♦ *** 

14 REM ♦«»»»*»*»***«♦****** 

15 : 

16 : 

20 BDSUB1000:REM INSTRUCTIONS 

30 B0SUB2000:REM SETUP 

40 60SUB3000:REM PLAY! 

50 G0SUB4000:REM !END! 

60 END 

70 : 

1000 : 

1001 :REM «** INSTRUCTIONS 

1002 : 

1005 POKE53281,0:POKE53280, 12 

1010 PRINT" <CLR>€BRY 3>"; 

1020 PRINTTABdO) "♦»* NUMBERS AWAY ***" 

1025 PRINT: PRINT 

1030 PRINT" IN THIS GAME, YOU WILL BE PRE 
SENTED WITH"; 

1031 PR I NT "A LIST OF NUMBERS BETWEEN 1 A 
ND 9." 

1032 PRINT 

1035 PRINT"A PAIR OF DICE WILL BE ROLLED 
, AND THE" 

1036 PR I NT "TOTAL WILL BE NOTED. YOU MUS 
T REMOVE," 

1037 PR I NT "FROM THE LIST, A COMBINATION 
OF NUMBERS" 

1038 PR I NT "WHOSE TOTAL MATCHES THE NUMBE 
R ON THE DICE." 

1040 PRINT: PRINT"FOR EXAMPLE, IF A SEVEN 
WAS ROLLED, YOU" 

1041 PR I NT "COULD REMOVE FROM THE LIST CI 
,2,4]," 

1042 PRINT" CI, 6] C2,53 C3,4] OR JUST PLA 
IN C73." 

1045 PR I NT: PR I NT: PR I NT "PRESS RETURN TO C 
ONTINUE" 

1 050 GETANS* : I FANS«< >CHR« (13) THENl 050 

1051 PRINT" {CLR>€GRY 3>"; 

1052 PRINTTABdO) "«*« NUMBERS AWAY ***" 

1053 PRINT: PRINT 

1055 PRINT"TO MOVE IN THE LIST, USE Fl T 
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O MOVE LEFT"; 

1056 PRINT"ANO F3 TO MOVE RIGHT. THE NU 
MBER YOU" 

1037 PRINT"ARE AT WILL BLINK. TO SELECT 

A NUMBER" 
1058 PRINT"PRESS F7. " 

1060 PRINT: PRINT"WHEN YOU SELECT ENOUGH 
NUMBERS TO REACH" 

1061 PRINT"THE TOTAL ON THE DICE, THE CO 
MPUTER WILL"; 

1062 PRINT"ROLL THE DICE FOR YOUR NEXT T 
RY. " 

1065 PRINT: PRINT" IF YOUR TOTAL GOES OVER 
THE NUMBER, THE" 

1066 PRINT"LIST WILL BE RESTORED, AND YO 
U WILL HAVE"; 

1067 PRINT"TO TRY AGAIN. TO GIVE UP, PR 
ESS THE '^'KEY. " 

1070 PRINT: PRINT: PRINT"PRESS RETURN TO C 
ONTINUE" 

1 075 GETANS* : I F ANS«< >CHR« (13) THEN 1 075 
1990 RETURN 

2000 : 

2001 :REM **« SETUP 

2002 : 

2005 PRINT" {CLR>" 

2010 DIMLI (9) , L2 (9) : F0RI=1T09: LI ( I ) «I : NE 
XT 

20 1 5 SI D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 
NEXTI 

2016 POKESID+5,9 

2020 PL0T=49152: F0RI=0T024: READC: POKEPLT 
+I,C: NEXTI 

2021 DATA32, 16, 192, 132 

2022 DATA253, 32, 16,192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA1S8, 173, 76, 170, 177 

2030 Ftm 1=1 T09 : NU= I : G0SUB2 1 00 : NEXT 
2095 RETURN 

2100 PRINTMID$ < " tREDJ {CYN> tPUR> CGRN> {BLU 
>€YEL>«LT RED} {ORNG> CLT BLU>",NU, 1) ; :GOT 
02120 

2110 PRINT" <BLK}"; 

2120 0NNUG0T02125, 2130, 2135, 2140, 2145, 21 
50,2155,2160,2165 

2125 SYSPL0T,2,2:PRINT"€RVS 0N> " 

2126 SYSPL0T,2,3:PRINT"€RVS 0N>{CSR> " 

2127 SYSPL0T,2,4:PRINT"tRVS ONICCSR} " 
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2128 
2129 
RN 

2130 

2131 

> " 

2132 

2133 

2134 

RN 

2135 

2136 

R> " 

2137 

2138 

R> •• 

2139 

URN 

2140 

2141 

2142 

2143 

RJ " 

2144 

R> 

2145 

2146 

2147 

2148 

R> " 

2149 

URN 

2150 

2151 

SR}" 

2152 

2153 

2154 

URN 

2155 

2156 

R> " 

2157 

R> " 

2158 

R> " 

2159 

R> " 

2160 

2161 



SYSPL0T,2,5:PRINT"€RVS 0N> CCSR> " 
SYSPL0T,2,6:PRINT"tRVS 0N> ":RETU 

SYSPL0T,6,2:PRINT"{RVS QN> 

SYSPLOT, 6, 3: PRINT" {RVS 0N> <CSR> tCSR 

SYSPL0T,6,4:PRINT"{RVS ON} 
SYSPLOT, 6, 5: PRINT" {RVS ONJ " 
SYSPLOT, 6, 6: PRINT" {RVS 0N> ":RETU 

SYSPLOT, 10, 2: PRINT" {RVS 0N> 
SYSPLOT, 10, 3: PRINT" {RVS 0N> {CSR> {CS 

SYSPLOT, 10, 4: PRINT" {RVS ONJ{CSR> " 
SYSPLOT, 10, 5: PRINT" {RVS 0N> {CSR> {CS 

SYSPLOT, 10, 6: PRINT" {RVS ONJ ":RET 

SYSPLOT, 14, 2: PRINT" {RVS 0N> {CSR> " 
SYSPLOT, 14, 3: PRINT" {RVS 0N> {CSRJ " 
SYSPLOT, 14, 4: PRINT" {RVS 0N> 
SYSPLOT, 14, 5: PRINT" {RVS 0N> {CSR> {CS 

SYSPLOT, 14, 6: PRINT" {RVS 0N> {CSR> {CS 
; RETURN 

SYSPLOT, 18, 2: PRINT" {RVS DN> 
SYSPLOT, 18, 3: PRINT" {RVS 0N> " 
SYSPLOT, 18, 4: PRINT" {RVS 0N> 
SYSPLOT, 18, 5: PRINT" {RVS 0N> {CSR> {CS 

SYSPLOT, 18, 6: PRINT" {RVS ONJ ":RET 

SYSPLOT, 22, 2: PRINT" {RVS 0N> 
SYSPLOT, 22, 3: PRINT" {RVS 0N> {CSR> {C 

SYSPLOT, 22, 4: PRINT" {RVS 0N> 
SYSPLOT, 22, 5: PRINT" {RVS 0N> {CSR> " 
SYSPLOT, 22, 6: PRINT" {RVS 0N> "ZRET 

SYSPLOT, 26, 2: PRINT" {RVS 0N> 
SYSPLOT, 26, 3: PRINT" {RVS 0N> {CSRJ {CS 

SYSPLOT, 26, 4: PRINT" {RVS 0N> {CSRJ {CS 

SYSPLOT, 26, 5: PRINT" {RVS 0N> {CSRJ {CS 

SYSPLOT, 26, 6: PRINT" {RVS ONJ {CSRJ {CS 
: RETURN 
SYSPLOT, 30, 2: PRINT" {RVS ONJ 
SYSPLOT, 30, 3: PRINT" {RVS ONJ {CSRJ " 
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{CSR> " 

":ret 



{CSR} 



2162 SYSPL0T,30,4:PRINT"<RVS 0N> 

2163 SYSPL0T,30,5:PRINT"tRVS ONJ 

2164 SYSPL0T,30,6:PRINT"{RVS 0N> 
URN 

2165 SYSPL0T,34,2:PRINT"{RVS 0N> 

2166 SYSPL0T,34,3:PRlNT"tRVS 0N> 

2167 SYSPL0T,34,4:PRINT"€RVS 0N> 

2168 SYSPLOT, 34,5: PRINT" {RVS ON>CCSR>{CS 
RJ " 

2169 SYSPL0T,34,6:PRINT"€RVS 0N> ":RET 
URN 

2200 FOR J- 1 T05+ I NT ( 5«RND ( ) ) 

2210 D1=1+INT(6*RND(0) ) :D2»1+INT(6*RND<0 
) ) 

2220 G0SUB2300 : 60SUB23 1 
2230 NEXT 

2300 DD=D1 : DX=10: G0TQ2320 
2310 DD=D2:DX=24 

2320 PRINTMID« ( " tRED> iCYN> €PUR} €GRNJ €BLU 
XYELXLT REO> {ORNG> {LT BLU>", l-i-INT(9*RN 
0<0)),1); 

2330 0NDD60T02340, 2350, 2360, 2370, 2380, 23 
90 

2340 SYSPLOT,DX, 10: PRINT" {RVS ONJ 

2341 SYSPLOT,DX, ll:PRINT"{RVS 0N> 

2342 SYSPLOT,DX, 12: PRINT" tRVS 0N> 

2343 G0T02400 

2350 SYSPLOT,DX, 10: PRINT" {RVS 0N> 

2351 SYSPLOT,DX,ll:PRINT"{RVS 0N> 

2352 SYSPLOT,DX, 12: PRINT" {RVS 0N> 

2353 60T02400 

2360 SYSPLOT,DX, 10:PRINT"<RVS 0N> 

2361 SYSPLOT,DX, ll:PRINT"tRVS 0N> 

2362 SYSPLOT,DX, 12: PRINT" CRVS 0N> 

2363 G0T02400 

2370 SYSPLOT,DX, 10: PRINT" <RVS ON} 

2371 SYSPLOT,DX,ll:PRINT"tRVS 0N> 

2372 SYSPLOT,DX, 12: PRINT" {RVS 0N> 

2373 G0T02400 

2380 SYSPLOT,DX, 10: PRINT" tRVS 0N> 

2381 SYSPLOT,DX, 11:PRINT"{RVS 0N> 

2382 SYSPLOT,DX, 12: PRINT" tRVS 0N> 

2383 G0T02400 

2390 SYSPLOT,DX, 10: PRINT" tRVS 0N> 

2391 SYSPLOT,DX, ll:PRINT"tRVS ONJ 

2392 SYSPLOT,DX, 12: PRINT" tRVS ONJ 

2393 G0T02400 
2400 POKES I D+ 1 , 90 : POKES I D+4 , 33 : POKES I D+2 
4, 10:F0RPA=1T080:NEXT 

2410 POKES I D+4, 32: POKES I D+ 1,0 
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2990 RETURN 

3000 : 

3001 :REM **« PLAY 

3002 : 

3010 F0RI=1T09: IFLI (IX >0THEN3015 

301 1 NEXTI : SYSPLOT, O, 18: F0RI=1T04: PRINT" 
CRVS OFF> 

II 

3012 SYSPLOT, 2, 18: PRINT" YOU SOT THEM ALL 
! ! >":F0RPA=1 TO 1000: NEXT :RETURN 

3015 60SUB2200 

3016 F0RI=1T09:L2<I)=0:NEXT 
3020 TT=D1+D2:SF=0 

3025 SYSPLOT, O, 18: F0RI=1T04: PRINT" {RVS O 

FF> 
II 

3026 NEXT 

3027 SYSPLOT, 2, 18: PRINT" tBRY 3>«< YOU M 
UST BET A TOTAL OF"TT"»>" 

3030 FOR 1=1 T09 : I FL I < I )< >0THEN3035 

3031 NEXTI : SYSPLOT, 2, 19: PRINT" tGRY 3>THE 
RE IS NOTHING LEFT, AND": 

3032 PRINT" YOU CANNOT REACH THE TOTAL. 

3033 F0RPA=1T02000:NEXTPA: RETURN 
3035 NP=0:G0SUB3100 

3040 NU=L I ( NP ) : 60SUB2 110: FORP A= 1 TO 1 00 : NE 
XT:G0SUB2100 

3050 GETKEY* : I FKE Y*= " " THEN3040 

3060 I FKE Y«= " €F 1 > " THENG0SUB3200 : G0T03040 

3061 IFKEY*=" €F3> "THENG0SUB3100: G0T03040 
3065 I FKEY*= " THENRETURN 

3070 IFKEY*<>"€F7>"THEN3040 
3072 NU=NP:60SUB2110 

3075 SF=SF+NP : L I ( NP ) =0 : L2 < NP ) = 1 : I FSF >=TT 
THEN3080 

3076 SYSPLOT, 2, 19: PRINT" {GRY 3} YOU'VE GO 
T"SF"{CSL> ,YOU NEED "TT-SF"... ";:GOT 

03030 

3080 IFSFOTTTHEN3085 

308 1 SYSPLOT , 2 , 20 : PR I NT " 

n 

3082 GT=GT+TT:SYSPL0T,2,20:PRINT"tGRY 3> 
YOU GOT THAT ONE ! ! ! " 

3083 F0RPA=1T0500: NEXTPA: G0T03010 

3085 FOR 1=1 T09 : I FL2 (IX >OTHENNU= I : G0SUB2 

100:LI(I)=I 

3090 NEXTI :SF=0 

3095 SYSPLOT, 2, 20: PRINT" {GRY 3>OOOPS, TR 
Y AGAIN! YOU NEED"TT"..." 
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Z09i» F0RPA=1T0500:NEXTPA 
3098 G0T03025 

3 1 00 NP-NP+ 1 : I FNP >9THENNP= 1 
3110 IFLI<NP)=0THEN3100 
3120 RETURN 

3200 NP=NP-1 : IFNP< 1THENNP=9 
3210 IFLI(NP>»0THEN3200 
3220 RETURN 
3990 RETURN 

4000 : 

4001 :REM *«« END 

4002 : 

4005 SYSPL0T,2,21 

4020 PRINT" tGRY 3>Y0U GOT "GT" OUT OF A PO 
SSIBLE 45." 

4022 PRINT" THAT IS "; 

4025 ONINT (GT/5) G0T04040, 4041 , 4042, 4043, 
4044, 4045, 4046, 4047, 4048, 4049 

4040 PR I NT "THE ABSOLUTE WORST !!!"s:RETU 
RN 

4041 PRINT "EXTREMELY POOR !!!";: RETURN 

4042 PR I NT "TERRIBLE !!!";:RETURN 

4043 PR I NT "VERY BAD !!!";:RETURN 

4044 PR I NT "JUST SO-SO !!!";:RETURN 

4045 PRINT"FAIR ...";:RETURN 

4046 PR I NT "PRETTY GOOD ...";:RETURN 

4047 PR I NT "GREAT !!!"j:RETURN 

4048 PR I NT "FANTASTIC ! ! ! "; ZRETURN 

4049 PRINT "PERFECT ! ! ! ! ! "; :RETURN 
4990 RETURN 
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This one-man paddle game is a test of your dexterity and your ability to 
think ahead. As opposed to most computer games, the object of Point 
Attack is to maneuver your paddle so that the flying points do not collide 
with you. (And as usual, there is a little luck involved as well.) Let's take a 
look at some of the simple graphics in this program. You'll notice our all- 
purpose (and now familiar) machine language graphics routine in lines 2005- 
2026. Lines 2031-2033 draw the border around the playing field using only 
three lines of code. They do this simply by printing long rows of inverse 
(black) spaces. This is a good example of getting a maximum of results from 
a minimum of work, which is also a characteristic of good programming in 
general. The paddle is drawn in line 3060. Try taking out the reverse video 
character in the PRINT statement and see what happens! 

The ball (as in line 3041) is drawn with a SHIFT-Q. 



/ 
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REM »**««*«*«**«***»«»*« 
REM **« **« 
REM »» POINT ATTACK »» 
REM *** *** 



14 REM «*«***««*4i'«*««*'ii'***« 

15 : 

16 : 

20 gosubioooirem instructions 
30 gosub20oo:rem setup 

40 60SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM «** INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,12: P0KE53280 , 1 2 

1010 PRINT" <CLR>{BLK> "TAB ( 10) "»*♦ POINT 

ATTACK **•" 

1020 PRINT: PRINT: PRINT 

1030 PRINT" IN THIS GAME YOU WILL CONTROL 
THE MOVE-" 

1031 PRINT"MENT OF A PADDLE IN THE MI DDL 
E OF THE" 

1032 PR I NT "SCREEN BY PRESSING THE KEYS J 
AND K ON THE KEYBOARD." 

1033 PRINT:PRINTTAB(8)"J - LEFT K - 
RIGHT" 

1040 PRINT: PR I NT "THERE WILL BE A FLYING 
POINT THAT WILL" 

1041 PR I NT "BOUNCE AROUND ON THE WALLS. 
THE POINT" 

1042 PRINT"WILL TRY TO HIT YOU, BUT DON' 
T LET IT." 

1050 PR I NT: PR I NT "AFTER AWHILE, ANOTHER P 
DINT WILL BE" 

1051 PRINT"ADDED TO THE FIELD OF PLAY, A 
ND YOUR" 

1052 PR I NT "PADDLE WILL GROW LARGER. AVO 
ID BEING" 

1053 PRINT "HIT FOR AS LONG AS YOU CAN." 
1055 PRINT: PR I NT "GET THE POINT?" 

1060 PRINT: PR I NT "PRESS RETURN TO BEGIN P 
LAY ! " 

1 065 GET ANS« : I F ANS«< >CHR« (13) THEN 1 065 
1990 RETURN 
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2000 : 

2001 :REM »»* SETUP 

2002 : 

2005 SID-S4272: F0RI=SIDT0SID-i-24: POKEI , O: 
NEXT:P0KESI+5,9 

2020 pl0t=49664: f0ri=0t024: readc: pcjkeplt 
+i,c:nexti 

2021 DATA32, 16, 194, 132 

2022 DATA253,32, 16, 194 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173,76, 170, 177 

2030 PRINT" tCLR> CBLU> " ; 

2031 PRINT" €RVS 0N> 

■I a 
* 

2032 F0RI=1T021: PRINT" {RVS 0N> CRVS OFF> 

<R 

VS 0N> tRVS off>";:next 

2033 PRINT" €RVS 0N> 

■I ■ 

2035 DIMBP(10,2),BD(10,2) 

2040 F0RI=1T010:BP(I, 1)=2:BP(I,2)=1+INT< 

20«RND(0} ) :BD(I,1}»1 

2045 BD(I,2)=2*INT(2*RND(0) )-l 

2050 NEXT:X=20 

2 1 30 pdl=49 1 52 : for i =0t063 : readc : pokepdl+ 
i,c:nexti 

2131 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69, 192, 141,2,220, 169 

2132 DATA128, 141,0,220, 160, 128,234, 136, 1 
6, 252, 173, 25, 212, 157 

2133 DATAl, 193, 173,26,212, 157,3, 193, 173, 
0,220,9, 128, 141,5, 193 

2134 DATA169,64,202, 16,222, 173,0, 193, 141 
, 2, 220, 173, 1 , 220, 141 

2135 DATA6,193,88,96 

2200 P0KE650, 128:REM ENABLE KEY REPEAT 
2990 RETURN 

3000 : 

3001 :REM *♦* PLAY 

3002 : 

3005 PD*=" " 

3010 F0RH=1T030:PD*=PD*+» " : X=X-1 : SYSPLO 
T,2,24 

3011 PRINT" tBLKJtRVS OFF}«< SCORE ===>" 
H" <CSL> »>" ; : F0RJ=1T025 

3015 i=h:ifi>iotheni=io 

3016 F0RK=1T0I 

3020 XX»BP (K, 1 ) : YY=BP <K, 2) : SYSPLOT, XX, YY 
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: PRINT" {RVS OFF> "J 

3025 BP (K, 1 ) =XX-i-BD (K, 1 ) : BP <K, 2) =YY+BD (K, 
2) 

3026 XX=BP(K,1):YY=BP(K,2) 

3030 I FX X <> 1 ANDX X < >38THEN3032 

3031 BD(K, l)s-BD(K, 1) :G0SUB3300 

3032 I F Y Y<> 1 AND Y Y< >2 1 THEN3035 

3033 BD ( K , 2 ) =-BD ( K , 2 ) : G0SUB3300 

3035 IFPEEK ( 1024+XX+40*YY) =160THENRETURN 

3040 PRINTMID* ( " tBLK> <WHT> <BLU> <YEL> tBLU 
> €BRWN><CYN> «LT GRN> {WHT> CGRY 2>",K, 1); 

3041 SYSPLOT, XX, YY: PRINT" tRVS 0FF>»"5 
3045 IFX<1THENX=1 

3050 SYSPLOT , X , 1 O : PR I NTPD* ; 

3052 REM SYSPDL:P=PEEK(PDL+257): IFP<128T 
HENX=X+1 : G0T03056 

3053 REM X=X-1 

3054 GETX*: IFX*="J"THENX=X-1 

3055 IFX*="K"THENX=X+1 

3056 IFX>39-<H+2)THENX=39-<H+2) 

3057 IFX<1THENX=1 

3060 SYSPLOT, X, 10: PRINT" {RVS ON}CBLKJ"PD 

*; 

3099 nextk:nextj:nexth 

3100 RETURN 

3300 POKES I D+ 1 , I NT ( 256«RND ( O > ) : POKES I D+2 
4, 15:P0KESID+4,33 

33 1 FORPA= 1 TO 1 : NEX TPA : POKES I D+ 1 , O : POKE 
SID+4, 32: RETURN 
3990 RETURN 

4000 : 

4001 :REM *** END 

4002 : 

4010 F0RPA=1T0500:NEXTPA 

4015 PRINT" CCLR> tBLUJ " : SYSPLOT, 0,11: PRIN 
T"THE GAME IS OVER « ! ! " 

4020 PR I NT "YOUR SCORE IS"H", CONGRATULAT 
IONS ! ! ! " 
4990 RETURN 
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In this game you try to avoid being captured by killer robots. Actually, 
eluding the relentless robots is most difficult. Because the pursuit is entirely 
predetermined, it might be a good idea to chart your course out before your 
first move. Line 2031 merits a closer look: 



DEF FNR(X]=INT(X*RND(0)]+1 

It uses the Commodore's DEF FN (DEFine FUNction) feature to create a 
random number generator. The equation on the right side of the equal sign 
is defined as function R. When a random number in a certain range is 
needed, as in line 2035, a statement like the following will substitute the 
value in parentheses for the X in function R: 

RX=FNR(20) or RX=FNR(10] 

In our case, FNR(20) will return a random number between one and twenty 
(since the RND function returns a ten-digit number between and 1) and 
FNR(10) will return a random number between 1 and 10. 

Most of the graphics in this game are pretty straightforward. For an example 
of the kind of changes you can make to see what's going on in the programs, 
change the PRINT statement in line 3060 from PRINT "(RVS-OFF) " to 
PRINT "(RVS-OFF):". Little experiments like these will explain exactly 
what's happening in each program line. 

The club is produced with a SHIFT-X. 

The spade is produced with a SHIFT- A. 

The circle is produced with a SHIFT-Q. 

The plus sign in 1 105 is produced with a SHIFT-plus sign. 

The arrow in line 301 1 is made with SHIFT-C's and a ">" sign. 

y 
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11 REM *♦* *♦* 

12 REM «« ROBOT CHASE ** 

13 REM **♦ 

14 REM 

15 : 

16 : 

20 60SUB100o:rem instructions 
30 60sub2ooo:rem setup 
40 g0sub3000:rem play! 

50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1 005 P0KE53280 , O : P0KE5328 1,12 

1010 PRINT" «CLR>tBLK> "TAB ( 10) "«** ROBOT 

CHASE 'N"N"N' " 

1030 PRINT: PRINT" IN ROBOT CHASE, YOU ARE 
AN EXPLORER WHO" 

1031 PR I NT "HAS LANDED HIS SPACESHIP ON A 
HOSTILE PLANET. " 

1040 PRINT: PRINT"SEVERAL PROTECTOR ROBOT 
S ARE TRYING TO" 

1041 PR I NT "CAPTURE YOU. IF YOU CAN RE AC 
H A BASE," 

1042 PRINT"YOU WILL BE SAFE BEHIND ITS P 
ROTECTIVE FORCE FIELD." 

1050 PR I NT: PR I NT "HERE'S HOW THINGS WORK: 

II 

1051 PRINT 

1052 PRINT" tBLU>BLUE {RVS 0N> {RVS OF 
F> = AN EXPLOSIVE FENCE (BAD!)" 

1053 PRINT" tWHTJWHITE ^ = YOU" 

1054 PRINT" {LT GRN> GREEN « = ATTACKING 
ROBOT <BAD!)" 

1055 PRINT" CBRWN>ORANGE # = PROTECTIVE 
BASE (GOOD!)" 

1060 PRINT 

1100 PRINT" tBLKJCRVS 0NJ3 2 KRVS 

FF> THIS IS YOUR CHOICE" 

1105 PRINT" {RVS 0N>4 4 8CRVS OFF> 

OF MOVEMENT" 
1110 PRINT" {RVS 0N>5 6 7{RVS OFF> 

THROUGH THE MAZE" 
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1120 PRINT: PRINT: PRINT: PRINT"PRESS RETUR 
N TO BEGIN PLAY!"; 

1 1 30 GET ANS« : I F ANS«< >CHR« (13) THEN 1 1 30 
1990 RETURN 

2000 : 

2001 :REM »»* SETUP 

2002 : 

2005 S I D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 

next: pokesid+s, 9 

2020 pl0t=49 1 52 : for i =0t024 : re adc : pokeplt 
+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,2S5 

2025 DATA32, 253, 174,32 

2026 DATA15S, 173, 76, 170, 177 

2030 DIMFI%(21, 11) 

2031 DEFFNR(X)=INT<X«RND(0) )-i-l 

2032 NR=4+FNR (5) : DIMROX (9, 2) 

2033 NO=INT < <NR-4) /2) +1 

2034 F0RI=1T0NR 

2035 RX=FNR(20):RY=FNR<10) : IFFiy.(RX,RY)< 
>OTHEN2035 

2040 FIX (RX , RY) =1 : R07. (1,1) =RX : ROX ( 1 , 2) =R 

y:nexti 

2045 F0RI=1T0N0 

2050 OX=FNR (10): OY=FNR (10) 

2055 IFFiy.(0X,0Y)<>0THEN2050 

2060 FI%(0X,0Y)=2:NEXTI 

2070 YX=10+FNR ( 10) : YY=FNR ( 10) 

2075 FI7.(YX, YY)=3 

2090 F0RI=0T021:FI5:(I,0)=4:FI7.(I, 11)=4:N 
EXTI 

2095 F0RI=0T01 1 : FIX (O, I ) =4: FIX (21,1) =4: N 
EXTI 

2096 C0*="tGRY 3><:LT GRNJ <:BRWN> {WHT> tBLU 

>":rv*="€rvs offxrvs 0FF>tRvs off><:rvs 

OFF>€RVS 0N>":CH*=" *«^. " 

2100 PRINT" <CLR> "TAB ( 10) "{BLU}»*» ROBOT 

CHASE ***" 

21 10 F0RI=0T021 : F0RJ=0T01 1 : SYSPLOT, 1+9, J 
+3:K=FIX(I, J)+l 

2111 PRINTMID* (CO*, K, 1 ) MID* (RV*, K, 1 ) MID* 
(CH*,K, 1); 

2112 NEXT: NEXT 

2200 DIMDI (8, 2) : F0RI=1T08: READDI ( I , 1 ) , DI 
(I,2):NEXT 

2210 DATAl, -1,0, -1,-1, -1,-1, 0,-1, 1,0, 1,1 
,1,1,0 
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2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3010 GQSUB5000:PRINT" €BLK>{RVS 0N>3 2 1 
": PRINT" {RVS 0N>4 I 8" 

3011 PRINT" {RVS 0NJ5 6 7{RVS OFF> WH 
ICH DIRECTION — > 

30 1 5 GETANS« : I F ANS*= " " THEN30 1 5 

30 1 6 ANS»VAL ( ANS« ) : I F ANS< 1 ORANS >8THEN30 1 


3020 G0SUB5000 

3021 X2=YX+DI (AN, 1 ) : Y2=YY+DI (AN, 2) 

3025 SYSPL0T,YX+9,YY-»-3: PRINT" €RVS OFF> " 
; : S YSPLOT , X2+9 , Y2+3 : PR I NT " t WHT 

3030 0=F I y. ( X2 , Y2 > : I F0=4THENWL=0 : RETURN: R 
EM FENCE 

3031 IF0=1THENWL=0: RETURN: REM ROBOT 

3032 IF0=2THENWL=l: RETURN: REM BASE 
3035 FIX ( YX, YY) =0: YX=X2: YY=Y2: FIX ( YX, YY) 

=3 

3040 F0RI=1T0NR 

3045 IFFNR ( 10) <7THENX2=FNR <3) -2: Y2=FNR <3 
)-2:G0T03055 

3050 X2=SGN ( YX-R07. (1,1)): Y2=SGN < YY-RO% ( I 
,2) ) 

3055 X2=X2+R0y. (1,1): Y2=Y2+R0X (1,2): 0=F 1 7. 
(X2, Y2) : IF0=10R0=20R0=4THEN3045 
3060 SYSPLOT , R07. ( 1 , 1 ) +9, R07. ( 1 , 2) +3: PRINT 
"CRVS OFF> "J :SYSPL0T,X2+9,Y2+3:PRINT"{L 
T GRN>^"; 

3065 I F0=3THENWL=0: RETURN: REM HUMAN 
3070 FI7. (R07. (1,1), R07. ( 1 , 2) ) =0: R07. ( 1 , 1 ) =X 
2: R07. ( 1 , 2) =Y2: FI7. (X2, Y2) =1 
3075 NEXTI:60T03010 
3990 RETURN 

4000 : 

4001 :REM *»♦ END 

4002 : 

4010 G0SUB5000: PRINT" {YEL>THE GAME IS O 
VER ! ! ! " 

4011 IFWLOOTHENPRINT" YOU'VE BEATEN THE 
KILLER ROBOTS ( YE AH !)": RETURN 

4012 PRINT" THE KILLER ROBOTS GOT YOU !" 
4990 RETURN 

5000 SYSPLOT, O, 18: F0RI=1T04: PRINT" {RVS O 

FF> 
■• 

5010 NEXT: SYSPLOT, O, 18: RETURN 
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(Requires Paddles) 



In this exciting paddle game, you try to discern the combination of a safe. 
Your ears, as well as your eyes, are important tools. The object of the game 
is to open the safe of an enemy agent before the thirty second delayed 
explosion blows up the safe and you! Once you grasp all of the rules, you 
will discover that being a safecracker is not too easy. Armed with a 
sophisticated and sensitive safe- cracking device, you try to detect the 
numbers in the combination one by one. Each time you pinpoint a number, 
you turn the paddle the other way until you pinpoint the next number in the 
combination. When you have identified the entire three- number 
combination, you will be informed that "THE PAPERS ARE YOURS!!!" and 
the explosion will be postponed. The safe itself is drawn in lines 2060-2075. 
The explosion (which you'll probably see quite a few times) is drawn in lines 
4016-4020. By the way, if you don't think 30 seconds is enough time to 
crack the combination, change the value in line 3015 to some number 
higher than 1800 (add 60 to the number for each additional second you 
want — e.g., TI$=2700 would give you 45 seconds). 

The horizontal bars are produced with CTRL-C's. 

The vertical bars are produced with SHIFT-minus signs. 

The circle is produced with a SHIFT- W. 

The legs are produced with a SHIFT-English pound sign and a SHIFT-asterisk. 
The diamond is produced with SHIFT-Z. 
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10 

11 

12 
13 



REM 



REM **» **♦ 
REM ** SAFE CRACKER «* 
REM *♦» 



14 REM 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 60sub2000:rem setup 

40 G0SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 

70 : 

1000 : 

1001 :REM **« INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,12: P0KE53280 , 1 2 
1010 PRINT" {CLR>" 

1020 print: PRINT: PRINTTAB( 10) "tBLU>*»* S 
AFE CRACKER " 

1030 PR I NT: PR I NT: PR I NT "YOU ARE A GOVERNM 
ENT SPY, AND YOU MUST" 

1031 PR I NT "PETRI EVE SOME CLASSIFIED DOCU 
MENTS WHICH"; 

1032 PR I NT "WERE STOLEN BY FOREIGN AGENTS 
■I 

1040 PRINT: PR I NT "THE DOCUMENTS ARE KEPT 
IN A VAULT WHICH" 

1041 PR I NT "YOU MUST OPEN." 

1050 PRINT: PRINT" YOU HAVE BEEN GIVEN A S 
OPH I ST I GATED SAFE"; 

1051 PR I NT "CRACKING DEVICE. WHENEVER TH 
E TUMBLERS" 

1052 PRINT" IN A SAFE CLICK INTO PLACE, T 
HE DEVICE" 

1053 PR INT" WILL ALSO MAKE A CLICKING SOU 
ND. IF YOU"; 

1054 PRINT "EITHER DIRECTLY HIT OR PASS B 
Y A NUMBER" 

1055 PRINT" IN THE COMBINATION, THEN THE 
DEVICE WILLEMIT A CLICK." 

1056 PRINT: PR I NT "PRESS RETURN WHEN READY 
TO CONTINUE" 

1 060 GET ANS« : I F ANS«< >CHR« (13) THEN 1 060 

1070 PRINT" €CLR>" 

1071 PRINT: PRINT:PRINTTAB( 10) "CBLU>«»* S 
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AFE CRACKER ***" 

1080 PRINT: PRINT: PRINT"START BY TURNING 
THE PADDLE ALL THE WAY" 

1081 PRINT"TO THE LEFT (VALUE OF O) . TH 
EN MOVE THE"; 

1082 PRINT"PADDLE TO THE RIGHT UNTIL YOU 
GET THE FIRST NUMBER." 

1090 PRINT: PR I NT "WHEN YOU DISCOVER THE F 
IRST NUMBER, THENTURN TO THE LEFT UNTIL" 



1091 PRINT" YOU GET THE 2ND NUMBER. "; 

1092 PRINT"FINALLY, TURN THE DIAL BACK T 
O THE RIGHT"; 

1093 PRINT" FOR THE THIRD AND LAST NUMBE 
R. " 

1095 PRINT: PRINT" IF YOU GO PAST A NUMBER 
, THEN YOU MUST" 

1096 PRINT"TURN THE DIAL ALL THE WAY TO 
THE LEFT," 

1097 PRINT"AND START OVER. ": PRINT 

1098 PRINT: PRINT"PRESS RETURN WHEN READY 
TO CONTINl^" 

1 1 00 GET ANS* : I FANS*< >CHR* (13) THEN 1 1 00 

1110 PRINT" €CLR>" 

1111 PRINT: PRINT: PRINTTAB( 10) "€BLU>»«» S 
AFE CRACKER **♦" 

1120 PRINT: PRINT: PRINT"OH, BY THE WAY, O 
NCE YOU HAVE TOUCHED" 

1121 PRINT"THE SAFE, YOU WILL HAVE THIRT 
Y SECONDS" 

1122 PR I NT "TO OPEN IT. WHEN THIRTY SECO 
NDS HAVE" 

1123 PRINT"PASSED, THE SAFETY MECHANISM 
WILL CAUSE" 

1124 PRINT"A TERRIBLE EXPLOSION." 

1130 PRINT: PRINT"PRESS RETURN WHEN READY 

TO CONTINUE" 
1 1 40 GET ANS« : I FANS«< >CHR« (13) THEN 1 1 40 
1990 RETURN 

2000 : 

2001 :REM »** SETUP 

2002 : 

2020 pl0t=49664 : for i =0t024 : readc : pokeplt 
+i,c:nexti 

2021 DATA32, 16, 194, 132 

2022 DATA253,32, 16, 194 

2023 DAT A 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32,253,174,32 

2026 DATA158, 173,76, 170, 177 
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2030 N1=1+INT(50*RND<0) ) 

203 1 N2= 1 + 1 NT < 50*RND ( ) ) : I FN2 >'=N 1 THEN203 


2032 N3= 1 + 1 NT < 50*RND ( ) ) : I FN3< =N2THEN203 
O 

2045 PRINT" {CLR> {BLU> " S : PRINT: PRINTTAB ( 1 
0) "*♦♦ SAFE CRACKER ♦♦*" 
2050 PRINT: PRINT: PRINT 

2060 PRINTTAB ( 12) "tRVS ON>tBLK> 

n 

2061 PRINTTAB (12)" <RVS ON>{BLK> 

tl 

2062 PRINTTAB (12)" CRVS ON>{BLK> 



. r~ 

■■ 



2063 PRINTTAB (12)" <RVS □N>{BLK> <RVS OF 
F>:tRVS 0N> I " 

2064 PRINTTAB ( 12) " CRVS ON><BLK> i iR 
VS OFF> <RVS 0N> i " 

2065 PRINTTAB ( 12) " <RVS 0N> tBLK> ! 



2066 
2067 
2068 
2069 



PRINTTAB (12)" {RVS ON>{BLK> 
II 

PRINTTAB (12)" tRVS ONJ«BLK> 
II 

PRINTTAB ( 12) " tRVS ON>tBLK> 
11 

PRINTTAB ( 12) " tRVS ON>{BLK> 



2071 PRINTTAB (12)" tRVS ON>tBLK> tRVS OF 
F>:tRVS 0N> i " 

2072 PRINTTAB ( 12) " tRVS 0N> tBLK> ^ 

.J, II 

2073 PRINTTAB ( 12) " tRVS ON}tBLK> 

11 

2074 PRINTTAB (12) "tRVS ONJtBLK> 

II 

2075 PRINTTAB (12)" r 
2080 T I ** " 000000 " : F= 1 : D= 1 
2085 V2=10:H2=19 

2 1 30 PDL=49 1 52 : FOR I =0T063 : RE ADC : POKEPDL+ 
I, C: NEXT I 

2131 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69,192,141,2,220, 169 

2132 DATA128, 141 , 0, 220, 160, 128, 234, 136, 1 
6, 252, 173, 25, 212, 157 

2133 DATAl , 193, 173, 26, 212, 157, 3, 193, 173, 
0,220,9, 128, 141,5, 193 

2134 DATA169,64,202, 16,222, 173,0, 193, 141 
,2,220,173,1,220,141 

2135 DATA6, 193,88,96 
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2200 S I D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 
NEXT 

22 1 POKES I D+5 , 88 : POKES I D+6 , 1 95 : POKES I D+ 
24,15 

2990 RETURN 

3000 : 

3001 :REM »** PLAY 

3002 : 

3010 SYSPLT,16,3:PRINT"tRED>TIME: "RIGHT 
«(TI*,2) 

3015 IFTI>1800THENWL=0: RETURN 

3020 SYSPDL : P= I NT ( ( 255-PEEK ( PDL+257 ) ) /5 . 

12) 

3022 SYSPLT, 19,9:PRINT"CBLK}"P"{CSL> " 

3023 G0SUB3700 

3024 I FP >OANDFTHENS YSPLT , O , 9 : PR I NT " {RVS 
OFF} TURN DIAL": PR I NT "TO THE LEFT":G0T030 
10 

3025 I FP=OANDFTHENF=0 : S YSPLT , O , 9 : PR I NT " t 
RVS OFF> ":PRINT" ":G0 
T03010 

3030 SYSPLT, 19,9:PRINT"€RVS OFF>tBLK}"P" 

tCSL> " 

3035 0NDG0T03040, 3050, 3060 

3040 IFP<N1THEN3010 

304 1 I FP >N 1 THENG0SUB3500 : G0SUB3600 : F= 1 : 6 
OT03010 

3042 G0SUB3500 : D»2 : G0T030 1 O 

3050 I FP >N 1 THENG0SUB3600 : F= 1 : D= 1 : G0T030 1 
O 

3054 IFP>N2THEN3010 

3056 IFP<N2THENG0SUB3500: 60SUB3600: F=l : G 
0T03010 

3058 G0SUB3500 : 0-3 : G0T030 1 O 

3060 I FP< N2THENG0SUB3600 : F» 1 : D» 1 : G0T030 1 

O 

3064 IFP<N3THEN3010 

3066 IFP>N3THENG0SUB3S00: G0SUB3600: F=l : G 
0T03010 

3068 G0SUB3500 : WL« 1 : RETURN 

3500 SYSPLT,30,5+D: PRINT" tLT GRN><CLICK> 

H 

3505 POKESID-i-24, 15 

3510 POKESID+1 , 20: POKESID+4, 33: F0RA=1T02 

o: next: pokesid-*-4, 32: P0KESID+1 , 

3515 POKESID-i-24, 
3520 RETURN 

3600 FOR Y= 1 T03 : SYSPLT , 30 , 5-»-Y : PR I NT " « RVS 
OFF> " : NEXT : RETURN 

3700 PP=P-4» I NT < P/4 ) : ONPP-»- 1 G0T0370 1 , 3702 
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,3703,3704 

3701 V=10: H=20: X*=" <BLK> tRVS 0N> ! " : G0T03 
705 

3702 V=11:H=21:X*="<:BLK><RVS 0N>-":60T03 
705 

3703 V=12:H=20:X*="<BLK><RVS □N>|":G0T03 
705 

3704 V=ll:H=19:X*="tBLK}tRVS 0N> -" 

3705 SYSPLT,H2,V2: PRINT" €RVS ON>tBLK> 

: SYSPLT, H, v: PRINTX*; : H2=H: V2=v: return 

3990 RETURN 

4000 : 

4001 :REM **♦ END 

4002 : 

4010 IFWL=1THEN4040 

4015 PRINT" {CLR>"; 

4016 F0RI=1T010: SYSPLT, O, I : PRINT" {RVS ON 
> CRED> *♦♦*♦»♦♦#**♦**♦*♦*••■*•*•*♦*♦******■*'** 

4017 SYSPLT, 0,21-1: PRINT" tRVS 0N> 4-*«*#*.«. 
*,^«****«*******#***********#**** " - NEXT 
4020 SYSPLT, 10, lO: PRINT" tBLKX < < B O O 

M ! > > >" 

4030 SYSPLT, O, 21 :PRINT"THE COMBINATION W 

as: "N1 "-"N2"-"N3: return 

4040 SYSPLT, 0,21: PRINT" tBLK> THE PAPERS A 
RE YOURS ! ! ! " 

4050 PR I NT "YOUR COLLEAGUES WILL BE QUITE 

IMPRESSED. " 
4060 PRINT" <HOME>"; 
4990 RETURN 




(Requires Paddles) 

This is another two-player paddle game. Each player controls the up and 
down movements of a flying saucer. The object is to shoot down your 
opponent's ship. The first player to do so three times is the winner of the 
game. There is not always a direct shot to your opponent, so you may have 
to blast through a few stars as well! The stars that you blast through are 
created in lines 3015-3017. The FOR/NEXT loop is run through 30 times to 
create 30 stars in quasi- random locations on the screen. The X (horizontal) 
coordinate of a star may be any of the 40 horizontal screen positions. The Y 
(vertical) coordinate of a star, however, must not get in the way of the two 
saucers. In line 3015, the statement Y = 5 + FNR(13) will return a number 
in the range of five through 17, which means that no stars will be placed in 
either the very top or very bottom portion of the screen. Remember that 
the RND function can be manipulated to return a value that is more suitable 
for your game than a fraction between and 1. For a more complete 
discussion of the DEF FN command, see the commentary on the game 
ROBOT CHASE. One more thought: there's no sense in doing more work 
than you have to, right? That is why the flying saucer drawn in line 3600 is 
used for both players. 

The ship in line 3600 is produced with the following key combinations: 

CMDR-8, 1 {CSR}, CTRL-0, SHIFT-U, CMDR-E, SHIFT- 1, 1 {CSD}, 5 {CSL}, 
CTRL-9, SHIFT- English pound sign, 1 space, SHIFT- W, 1 space, SHIFT- W, 
1 space, SHIFT-asterisk, 1 {CSD}, 6 {CSL}, CTRL-0, CMDR-U, 1 space, 
CMDR-U, 1 space, CMDR-U. 

The large X is produced with a SHIFT- V. 
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REM 

REM **♦ ♦** 



12 REM *» SAUCER DUELS ** 

13 REM *♦* *♦* 

14 REM «»»»»«*♦**»•*»♦**♦** 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 60sub2000:rem setup 

40 G0SUB3000:REM PLAY! 
50 60SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM **« INSTRUCTIONS 

1002 : 

1 005 P0KE53280 ,12: P0KE5328 1,12 

1010 PRINT" tCLR>tBLK> "TAB ( 10) "»*♦ SAUCER 

DUELS »•*" 
1020 PRINT: PRINT 

1025 PR I NT "THIS IS A TWO-PLAYER SAME. E 
ACH PLAYER " 

1030 PR I NT "CONTROLS A FLYING SAUCER BY U 
SING THE PADDLES (PORT 2)." 
1035 PRINT 

1040 PR I NT "PADDLE #1 IS FOR PLAYER #1, A 
ND IS ON" 

1041 PR I NT "THE TOP OF THE SCREEN. PADDL 
E #2 IS FOR"; 

1042 PR I NT "PLAYER #2, AND IS ON THE BOTT 
OM OF THE SCREEN." 

1045 PRINT 

1050 PR I NT "MOVE THE SAUCERS LEFT AND RIG 
HT WITH THE"; 

1051 PRINT "PADDLE CONTROL. TO SHOOT AT 
THE ENEMY" 

1052 PR INT "SHIP, PRESS YOUR PADDLE BUTTO 
N. THE" 

1053 PRINT" FIRST ONE TO SCORE THREE HITS 
WINS THE GAME." 

1055 PRINT: PRINT: PRINT 

1060 PR I NT "PRESS RETURN TO BEGIN PLAY." 
1 065 GET ANS* : I F ANS*< >CHR« (13) THEN 1 065 
1990 RETURN 

2000 : 

2001 :REM *♦» SETUP 

2002 : 

20 1 O SI D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 
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next: POKES I D+4, 9 

2020 PL0T=49664 : FOR I =0T024 : REAOC : POKEPLT 
+Z,C:NEXTI 

2021 DATA32, 16, 194, 132 

2022 DATA253,32, 16, 194 

2023 DAT A 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 0ATA158, 173, 76, 170, 177 

2130 pdl=49152: f0ri=0t063: readc: pokepdl+ 
i,c:nexti 

2131 DATA162, 1 , 120, 173, 2, 220, 141 , 0, 193, 1 
69, 192, 141,2,220, 169 

2132 DATA128, 141,0,220, 160, 128,234, 136, 1 
6, 252, 173, 25, 212, 157 

2133 DATAl, 193, 173,26,212, 157,3, 193, 173, 
O, 220, 9, 128, 141 , 5, 193 

2134 DATA169, 64, 202, 16, 222, 173, 0, 193, 141 
, 2, 220, 173, 1 , 220, 141 

2135 DATA6, 193,88,96 

2200 DEFFNR ( X ) =INT ( X*RND <0) > 
2990 RETURN 

3000 : 

3001 :REM *** PLAY 

3002 : 

3005 F1=0:F2=0:HI=0:L2=18:L4=18 

3010 PRINT" €CLR> " : P0KE53280, O: P0KE53281 , 



3015 F0RI=1T030:X=FNR(40) : Y=5+FNR<13) :SY 
SPLOT,X,Y 

3016 PRINTMID* ( " CWHT> {RED> {CYN> tPURJ tGRN 
> €BLU> CYEL> tORNG> CBRWNJ CLT REDXGRY IJtG 
RY 2>{LT GRNXLT BLUJCGRY 3J", 1+FNR(15) , 
1) 

3017 NEXT 

3020 SYSPLOT, 0,23: PRINT" CRVS ON>{WHT> PL 
AYER #1 PLAYER #2 "; 

3021 PRINT" 

■I ■ 
» 

3022 P0KE2023,160:P0KE56295, 1 

3023 SYSPL0T,4,24:PRINT"{RVS 0N>€WHT>"P1 
; : SYSPLOT, 33, 24: PRINT" tRVS ON J {WHT> "P2; 

3024 Y-0 : G0SUB3600 : Y-20 : G0SUB3600 

3025 PRINT"CH0ME>"5 

3030 G0SUB3500:REM MOVE SHIPS 

3040 G0SUB3800: REM MOVE SHOTS 

3050 IFHI=0THEN3030 

3060 I FH I = 1 THENP 1 =P 1 + 1 : G0T03080 

3070 IFHI=2THENP2=P2+1 

3080 IFP1<3ANDP2<3THEN3005 
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3090 RETURN 

3500 SYSPDL: L1=INT ( (256-PEEK <PDL+258) ) /7 
. 5) 

3501 L3=INT < (256-PEEK (PDL+260) ) /7. 5) 
3505 B 1 =PEEK ( PDL+26 1 > AND4 : B2-PEEK ( PDL-i-26 
DANDS 

3510 IFL2=L1THEN3550 

3520 IFL2<L1THENSYSPL0T, 0,0: F0RI=0T02: PR 
INTCHR* < 148) : NEXT: L2=L2+1 : B0T03550 
3530 I FL2 > 1 THENS YSPLOT ,0,0: FOR I =OT02 : PR I 
NT" tCSR} "CHR* (20) : NEXT: L2=L2-1 
3550 IFL3=L4THEN3590 

3560 I FL4< L3THENSYSPL0T , , 20 : FOR I =0T02 : P 
RINTCHR* ( 148) : NEXT: L4=L4+1 : G0T03590 
3570 IFL4>1THENSYSPL0T, O, 20: F0RI=0T02: PR 
INT" {CSR> "CHR* < 20) : NEXT: L4=L4-1 
3590 RETURN 

3600 SYSPLOT, 18, Y: PRINT" <GRY 3>tCSR>CRVS 
OFF> , {CSD> tCSL> {CSL> €CSL> {CSL> <:CSL> €R 
VS ONJr o O -^CCSD} {CSL><CSL> «CSL> {CSL> tC 
SLXCSLJtRVS OFF>- - """: RETURN 
3800 IFF1O0THEN3850 
3805 IFB1O0THEN3850 

38 10 Fl=l:Xl =L2+2 : Y 1 =3 : SYSPLOT , X 1 , Y 1 : PR I 
NT"<RVS OFF>{BLU>«!."; 
3850 IFF200THEN3870 
3855 IFB200THEN3870 

3860 F2=l : X2=L4+2: Y2=19: SYSPLOT, X2, Y2: PR 
INT"tRVS OFF>{RED>»"; 

3870 F0RI=1T05 

3871 IFF1=0THEN3880 

3872 SYSPLOT, Xl,Yl: PRINT" €RVS OFF> "; 

3873 Yl=Yl+l:IFYl >22THENF 1 =0 : G0T03880 

3875 CH=PEEK < 1 024+X 1 +40»Y 1 ) : I FCH=32THENS 
YSPLOT, XI , Yl : PRINT" {RVS OFF> <BLU>ii." ; : GOT 
03880 

3876 I FCH=42THENS YSPLOT, X 1 , Yl : PRINT" <RVS 
OFF} " ; : F 1 =0 : G0SUB3900 : G0T03880 

3878 XX=L4: YY=20: G0SUB3950: HI=1 : RETURN 
3880 IFF2=0THEN3890 

3882 SYSPLOT, X2,Y2: PRINT" {RVS OFF> "; 

3883 Y2=Y2- 1 : I FY2< 0THENF2=0 : 60T03890 

3885 CH=PEEK ( 1024+X2+40*Y2) : IFCH=32THENS 
YSPLOT, X2, Y2: PRINT" tRVS OFF> CRED>«" ; : GOT 
03890 

3886 I FCH=42THENSYSPL0T , X2 , Y2 : PR I NT " tRVS 
OFF> " ; : F2=0 : G0SUB3900 : G0T03890 

3888 XX=L2: YY=0: G0SUB3950: HI=2: RETURN 
3890 NEXT: RETURN 

3900 POKES I D+ 1 , 30 : POKES I D+24 ,15: POKES I D+ 
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4, 33: F0RPA=1T030: NEXT 

39 1 O POKES I D+4 , 32 : POKES I D+ 1 , O : RETURN 
3950 PRINT" <CYN> :F0RI=1T012 
3955 X=XX+FNR (5) : Y=YY+FNR (3) : SYSPLOT, X, Y 
3960 PRINT" :<■'; 

3970 POKES I D+ 1 , 1 : POKES I D+24 ,15: POKES I D+ 
4, 33: F0RPA=1T050: NEXT 
3980 POKESID+4, 32: POKESID+1 , O: NEXT 
3990 RETURN 

4000 : 

4001 :REM »*♦ END 

4002 : 

4010 PRINT" <:CLR>": SYSPLOT, 2, 12: PRINT" tSR 

Y 3>THE SAME IS OVER! ! !" 

4020 PRINT" PLAYER NUMBER "; 

4030 IFP1=3THENPRINT"1"; 

4035 I FP2=3THENPR I NT " 2 " ; 

4040 PRINT" IS THE WINNER !!!" 

4990 RETURN 
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True to its name, the object of this game is to dodge the stars until you 
maneuver your ship near the bottom of the screen. Don't try to intercept 
the stars. If you do, you'll lose! This program makes use of special 
Commodore graphics characters to draw the stars and the ship. You may 
notice that there is not as much complexity in this program as there is in 
some of the others. List lines 3021-3025. These are the lines responsible for 
generating stars. Depending on the level of difficulty specified in line 1052, 
these lines will plot a number of stars on each row of the screen. Line 3021 
will pick a random color (LIGHT GREY, BLUE, LIGHT GREEN, PINK, or 
YELLOW) and line 3025 will pick a random character from a four character 
string. 

Where are all those spacy sounds coming from? LOAD Star Dodger again. 
(You may have to power down your computer to stop the last tone POKEd 
into your SID chip.) Before you RUN the program, delete line 3035 by 
typing in 3035 and pressing the RETURN key. Now if you RUN the program, 
you'll hear what space really sounds like — an aural vacuum! 

The circle is produced with a SHIFT- W. 
The diamond is produced with a SHIFT- Z. 
The large plus sign is produced with a SHIFT-plus sign. 
The large X is produced with a SHIFT- V. 

The ship in line 3055 is produced with a CMDR-Q, SHFT-Q, CMDR-W. 

The explosion in line 3130 is drawn with 5 asterisks, 5 CMDR-plus signs, 
5 periods, 5 CMDR- English pound sign, and 5 CMDR-B's. 

V 
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10 

11 

12 
13 



REM 

REM *** *** 

REM »• STAR DODGER! *» 

REM **» **♦ 



14 REM v******************* 

15 : 

16 : 

20 GOSUB 1000: REM INSTRUCTIONS 

30 G0SUB2000:REM SETUP 

40 G0SUB3000: REM PLAY! 

50 G0SUB4000:REM 'END! 

60 END 

70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1003 P0KE650, 128:REM SET KEY REPEAT 

1 005 P0KE5328 1,0: P0KE53280 , O : PR I NT " tGRY 
3} " S 

1010 PRINT" {CLR>":PRINTTAB< 11)"*** STAR 
DODGER ***" 

1030 print: print: PRINT" IN THIS GAME, YOU 
WILL BE USING THE KEY-BOARD TO "; 

1031 PRINT"PILOT A SPACESHIP. THE OBJEC 
T IS TO MANEUVER THE SHIP "i 

1032 PR I NT "THROUGH A FIELD OF STARS, AND 
TO SUCCESSFULLY REACH 

1033 PR I NT "THE BOTTOM OF THE SCREEN." 

1035 PR I NT: PR I NT "YOU MUST TRY TO AVOID C 
OLLIDING WITH THE"; 

1036 PR I NT "STARS. EACH COLLISION WITH T 
HE STARS" 

1037 PR I NT "DRAINS POWER FROM YOUR SHIP'S 
PROTECTIVE"; 

1038 PR I NT "SHI ELDS. " 

1040 PR I NT: PR I NT "YOU HAVE FIVE ATTEMPTS 
TO REACH THE HOME"; 

1041 PR I NT "BASE BEFORE YOUR SHIELDS GIVE 
OUT. AT THIS POINT, THE NEXT "; 

1042 PRINT"COLLISION WILL FINDYOUR SHIP 
WITH NO POWER AND THE SHIP" 

1043 PRINT" WILL BE DESTROYED > BOOM! <" 

1044 PRINT 

1045 PRINT"USE THE FOLLOWING KEYS TO MAN 
EUVER: " 

1046 PRINT 

1047 PRINT " A - LEFT K - 
RIGHT": PRINT 
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1049 PR I NT "PRESS RETURN TO CONTINUE..."? 

1050 GETX$: IFX*< >CHR* (13) THEN 1050 

1052 PRINT" {CLR>HOW DO YOU RATE YOURSELF 

?": INPUT "1=P00R ... 10»GREAT. ";ANS 
1055 IFANS<10RANS>10THEN1050 
1990 RETURN 

2000 : 

2001 :REM *»* SETUP 

2002 : 

2003 P0KE53280 , : P0KE5328 1 , 

2005 OEFFNJOY ( X ) » ( 15-PEEK (56321 ) AND15) AN 
D12 

2010 DEFFNR(X)-1-<-INT(X«RND(0) ) 

2015 DEFFNSC ( X ) =PEEK ( 1024+X+SX+40»SY) 

2020 NT=5 

2025 SID=54272 

2026 FOR I =S I DTOS I D+24 : POKE I , O : NEX T 
2030 POKES I D-t-5 , 88 : POKES I D-i-6 , 1 95 

2 1 20 pl0t=49664 : for i =0t024 : re adc : pokeplt 
+i,c:nexti 

2121 DATA32, 16, 194, 132 

2122 DATA253,32, 16, 194 

2123 DATA152, 170, 164,253 

2124 DATA24,76,240,255 

2125 DATA32, 253, 174,32 

2126 DATA158, 173, 76, 170, 177 

2200 PDL=49 1 52 : FOR I =0T063 : READC : POKEPDL+ 

i,c:nexti 

2210 DATA162, 1, 120, 173,2,220, 141,0, 193, 1 
69, 192, 141,2,220, 169 

221 1 DATA128, 141 , O, 220, 160, 128, 234, 136, 1 
6,252, 173,25,212, 157 

2212 DATAl , 193, 173, 26, 212, 157, 3, 193, 173, 
0,220,9,128, 141,5, 193 

2213 DATA169,64,202, 16,222, 173,0, 193, 141 
, 2, 220, 173, 1 , 220, 141 

2214 DATA6, 193,88,96 
2990 RETURN 

3000 : 

3001 :REM »»* PLAY 

3002 : 

3010 PRINT" tCLRXBRY 3>":SYSPL0T,0, 10: IF 
NT>1THENPRINTNT"ATTEMPTS remain !!!":G0T 
03014 

3012 print" 1 attempt remains !!!" 

3014 fori=itoiooo:nexti 

3015 SX=FNR (38) : SY=1 : PRINT" {CLR> " 
3017 X2=SX:Y2=SY 

3020 SYSPL0T,SX,SY: PRINT" ";:SX=X2:SY= 
Y2 
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3021 F0RI=1T0ANS/3:PRINTMID*("{GRY 3><:lt 

BLU>tLT GRN>{LT RED}€YEL>",FNR(5) , 1) ; 
3025 SYSPLOT, FNR (40) , 24: PRINTMID* ( "o# +x" 
,FNR(4),1);:NEXT 

3030 SYSPLOT, 0,24: PRINT" <CSD>«LT BLU>"5 

3035 POKESID+24, 15:P0KESID,0:P0KESID+1,4 
0+3»FNR(30) 

3036 POKESID+4, 33: F0RI=1T050: NEXT 

3040 I FFNSC (OX >320RFNSC (IX >320RFNSC ( 2 ) 
O32THEN3100 

3041 6ETX» 

3046 IFX*="K"THENX2=SX+i : B0T03050 
3048 IFX*="A"THENX2=SX-1 : B0T03050 

3050 IFX2<1THENX2=1 

3051 IFX2>38THENX2=38 

3055 SYSPLOT , SX , SY : PR I NT " H " ; : Y2=SY 
3060 CNT=CNT+ 1 : I FCNT=8THENCNT=0 : Y2=Y2+ 1 : 
I F Y2=20THEN3200 
3065 F0RI=1T050:NEXT 
3070 G0T03020 

3100 SX=SX-2: IFSX<1THENSX=1 

3110 SY=S Y-2 : I FS Y< 1 THENS Y= 1 

3115 POKES I D+24 , O : POKES I D+ 1 , O : POKES I D+4 , 

32 

3120 F0RI=1T05: F0RJ=SYT0SY+4: SYSPLOT, X2+ 
I-l, J 

3130 PRINTMID* ( "*****mmmm ««vX:X«:::X::-bW« 

(i-i)*5+i,5) :nextj:fork=ito50:next:ne 

XT 

3 1 60 NT=NT- 1 : I FNT >0THEN30 1 
3200 RETURN 

4000 : 

4001 :REM ««* END 

4002 : 

4005 POKES I D+ 1 , : POKES I D+24 , O 

4010 PRINT" <CLR>":SYSPLT,0, 10 

4020 IFNT=OTHENPRINT"I'M SORRY BUT YOU L 

OST. . . ": RETURN 

4030 PRINT "YOU WON ! ! ! CONGRATULATIONS ! 



4990 RETURN 
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Grab a friend and get ready for some heated competition. The object of this 
game is to wall in your opponent and prevent him from being able to move. 
On each turn you will be asked for the coordinates of the square you wish to 
move into. Once you have moved, you will also be asked which square you 
would like to block out. The first player who is unable to make a move 
loses. This game actually combines some of the better elements of both 
chess and checkers. The game board itself is drawn on lines 2050-2065. The 
original player positions and colors are designated in lines 2070 and 2071. 
You may have noticed that there are a number of GOSUB 5000's in the 
program. If you look at the REM statement at Une 5000, you'll see that this 
is the subroutine to fill in a square to which a player has moved. See if you 
can trace the path the program takes to erase the old position, find the new 
position, then draw the square in. (Hint: look at lines 3060-3070.) 



y 
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REM *«««**««**«««**»««*« 
REM **♦ 
REM *« STRANDED ** 



REM »♦* 



14 REM *««**««*«**«****«*«* 

15 : 

16 : 

20 gosubiooo:rem instructions 
30 gosub2000:rem setup 

40 G0SUB3000:REM PLAY! 
50 G0SUB4000:REM !END! 
60 END 
70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1 003 P0KE532B 1,12: P0KE53280 , 6 

1005 PRINT" «CLR> <:BLU> "TAB ( 10) "♦*» STRAND 
ED ***" 
1010 PRINT 

1020 PR I NT "THIS IS A GAME FOR TWO PLAYER 
S. BOTH OF"; 

1021 PRINT"YOU WILL BE PLACED IN AN 8 X 
8 MATRIX." 

1030 PR I NT "A PLAYER MAY MOVE IN ANY OF T 
HE EIGHT" 

1031 PRINT "DIRECT IONS. ENTER THE COORD I 
NATES OF THE TARGET SQUARE." 

1035 PRINT 

1040 PRINT"AFTER YOU MOVE, YOU WILL BE A 
SKED FOR" 

1041 PR I NT "THE COORDINATES OF A SECOND S 
QUARE. THIS"; 

1042 PR I NT "SQUARE WILL THEN BE BLACKED O 
UT, AND" 

1043 PRINT "WILL BE UNENTERABLE. " 
1045 PRINT 

1050 PR I NT "THE FIRST PLAYER UNABLE TO MO 
VE LOSES" 

1051 PRINT"THE GAME. THE TOP LEFT IS (1 
,1) AND THE"; 

1052 PRINT"TOP RIGHT IS (1,8)." 

1055 PR I NT: PR I NT: PR I NT "PRESS RETURN TO B 
EG IN PLAY!" 

1 060 GET ANS« : I F ANS«< >CHR« (13) THEN 1 060 
1990 RETURN 
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2000 : 

2001 :REM *«« SETUP 

2002 : 

2005 SI D=54272 : FOR I =S I DTOS I D+24 : POKE 1,0: 
NEXT:P0KESID+5,9 

2020 pl0t=49152: f0ri=0t024: reaoc: pcm<eplt 
+i,c:nexti 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA152, 170, 164,253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 0ATA158, 173, 76, 170, 177 

2030 DEFFNC < X ) = ( X- 1 ) »3+9: DEFFNR < X ) = ( X-1 ) 
*2+2 

2040 DIMM<8,8),P<2,3) 

2041 M(4, 1)=1 

2042 H(5,8)=2 

2043 P<1,1)=4 

2044 P(l,2)=l 

2045 P(2,2)=5 

2046 P(2,3)=8 

2050 PRINT"<:CLR>":F0RI=1T017:SYSPL0T,8, I 
: PRINT" {RVS ON>{WHT> 

2055 NEXT I 

2056 SYSPL0T,9,0 

2057 PRINT" <RVS OFFJtLT GRN> 12 3 4 
5 6 7 8" 

2058 SYSPL0T,8, 1 

2059 PRINT" {RED> {RVS 0N> 

11 

2060 FORI=2T017STEP2:SYSPLOT,5, I 

2061 PRINT"€BLK}"I/2"tRED>{RVS 0N> «CSR> 
CCSR> CCSR>€CSR> {CSR>{CSR> {CSR>{CSR> € 
CSRJtCSR> CCSR>CCSR> {CSR> {CSR> {CSRXCS 
R> " 

2062 SYSPL0T,8, I+l 

2063 PRINT" iRED> {RVS 0N> 

■I 

2065 NEXT 

2070 PRINT" {YEL>";:X=4:Y=1:G0SUB5000 

2071 PRINT" {BLU> " ; : X=5: Y=8: 60SUB5000 
2080 DIMDIR <8, 2) : F0RI»1T08: READOIR ( 1 , 1 ) , 
DIR(I,2):NEXT 

2090 DATAl, 1,-1, -1,1, -1,-1, 1,1, 0,0, 1,-1, 

0,0,-1 

2990 RETURN 

3000 : 

3001 :REM ♦»» PLAY 
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3002 : 

3010 F0RP=1TQ2 

3020 G0SUB6100: PRINT" <:WHT>*«» PLAYER #"P 
: INPUT-MOVE TO ( <BLK>ROW, tLT GRN>COLUMN{ 
WHTJ ) " J X 1 Y 1 

3025 IFX1<10RX1 >80RY 1 < 1 ORY 1 >80RX 1 <> I NT ( X 

1 ) ORYK >INT ( Yl ) THENG0SUB6000: G0T03020 
3030 X=P(P,P):Y=P(P,P+1) 

3040 IF<X1-X)»(X1-X)+<Y1-Y)»<Y1-Y)>=4THE 
NG0SUB6020: G0T03020 

3050 I FM ( X 1 , Y 1 X >0THENG0SUB6020 : G0T03020 
3060 M ( X , Y ) =0 : PR I NT " < WHT> " ; : G0SUB5000 
3070 M < X 1 , Yl > =P: PRINTMID* < " CYELJ tBLU> " , P 

,1);:p<p,P)=xi:p(P,p+1)=yi:x=xi:y=yi:60S 

UBSOOO 

3100 G0SUB6 1 00 : INPUT" tWHT> BLOCK AT (tBLK 

>ROW, €LT 6RN> COLUMN €WHT> ) " ; X2, Y2 

3 1 05 I F X2< 1 0RX2 >80RY2< 1 0RY2 >80RX2< > I NT ( X 

2 ) OR Y2< > I NT ( Y2 ) THEN60SUB6000 : G0T03 1 00 

31 10 IFM ( X2, Y2X >0THENG0SUB6020: G0T03100 
3120 M < X2, Y2) =3: PRINT" «BLK> " ; : X=X2: Y=Y2: 
60SUB5000 

3200 K=3-P: F0RJ=1T08: X4=P (K, K) +DI ( J , 1 ) : Y 
4=P(K,K+1)+DI(J,2) 

3210 IFX4<10RX4>8THEN3250 

32 1 1 I F Y4< 1 OR Y4 >8THEN3250 
3220 IFM < X4, Y4) < >0THEN3250 
3230 J=8:NEXTJ:G0T03990 
3250 NEXTJ: RETURN 

3990 NEXT 
3995 G0T03010 

4000 : 

4001 :REM ♦** END 

4002 : 

4010 G0SUB6100 

4020 PRINT" tWHT>THE GAME 18 OVER ":P 

RINT"PLAYER"P"IS THE WINNER!" 
4990 RETURN 

5000 REM *** FILL IN A SQUARE 

5001 SYSPLOT,FNC<Y),FNR<X): PRINT" {RVS ON 
y " i ' RETURN 

6000 REM *** SHOW ERROR THEN PAUSE 

6010 PRINT"COORDINATES MUST BE INTEGER B 

ETWEEN 1 AND 8. . . " : G0T06050 

6020 PRINT" ILLEGAL MOVE..." 

6050 FORPA= 1 T0400: IsEXTPA 

6100 REM ♦»* CLEAR BOTTOM OF SCREEN 

6105 SYSPLOT,0, 19: F0RI=1T05: PRINT" {RVS O 

FF> 
NEXT 

6110 SYSPLOT,0, 19: RETURN 
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This game requires good timing. A small moving target is the object of your 
marksman talent. The angle at which the ball is shot depends on the angle of 
the firing pad. Unlike most games, where the gameboard and other starting 
graphics are drawn in the subroutine beginning at line 2000, in Target, ALL 
of the graphics are drawn in the subroutine starting at line 3000. Line 3010 
clears the screen and lines 3011-3014 draw a black border around the edge 
of the screen. Take a close look at line 3030. Unlike most FOR/NEXT 
loops, which are numbered from 1 to some higher number, the FOR/NEXT 
loop in this line goes from -2 to 2. This allows us to find the center point of 
the paddle (XP and YP) and plot two points to either side of it. To see 
exactly what is going on, change the -I to +1 or the +1 to -1. The paddle 
might still look the same, but it will soon become apparent that the game 
won't play the same way! 

The ball (dot) is drawn with a SHIFT-Q. 



V J 
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10 

11 

12 
13 



REM »*********«*»*«*«*«« 
REM **• *** 



REM ** TARGET »* 

REM **» *** 



14 REM »*****♦****♦*♦****** 

15 : 

16 : 

20 GOSUB 1000: REM INSTRUCTIONS 

30 G0SUB2000:REM SETUP 

40 GOSUB3000:REM PLAY! 

50 G0SUB4000:REM !END! 

60 END 

70 : 

1000 : 

1001 :REM *** INSTRUCTIONS 

1002 : 

1 005 P0KE5328 1,12: P0KE53280 , 1 2 

1010 PRINT" {CLRXBLKJ "TAB ( 13) "*♦* TARGET 



1025 PRINT: PRINT 

1030 PRINT" IN THIS GAME YOU TRY TO HIT A 
MOVING" 

1031 PRINT"TARGET. BY PRESSING ANY KEY, 
A SMALL" 

1032 PRINT"BALL WILL BE FIRED FROM THE P 
ADDLE ON THE SCREEN." 

1040 PRINT: PRINT" YOU MUST TIME THE RELEA 
SE SUCH THAT THE" 

1041 PRINT"SMALL BALL HITS THE LARGE TAR 
GET. THE" 

1042 PRINT"DIRECTION AND DISTANCE WILL V 
ARY WITH" 

1043 PR I NT "EACH NEW TARGET." 

1050 PRINT: PR I NT "PRESS RETURN TO BEGIN P 
LAY. " 

1 090 GET ANS« : I FANS*< >CHR* (13) THEN 1 090 
1990 RETURN 

2000 PL0T=49 1 52 : FOR I =0T024 : READC : POKEPLT 
+I,C:NEXTI 

2021 DATA32, 16, 192, 132 

2022 DATA253,32, 16, 192 

2023 DATA 1 52 , 1 70 , 1 64 , 253 

2024 DATA24,76,240,255 

2025 DATA32, 253, 174,32 

2026 DATA158, 173, 76, 170, 177 
2990 RETURN 



«*»" 
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3000 : 

3001 :REM **♦ PLAY 

3002 : 
3005 C=0 

3010 PRINT" {CLR>"; 

3011 PRINT" {RVS ON>tBLU> 

■I a 

3012 F0RI=1T021: PRINT" tRVS 0N> CRVS OFF> 

<R 

VS 0N> {RVS OFF>"; 

3013 NEXT 

3014 PRINT" {RVS ON>{BLU} 

II ■ 

3015 SYSPLOT, 10,23:PRINT"{RVS 0FF>{BLK}S 
CORE: "SC"{CSL> SHOTS: "SH"{CSL> {HOME 

>"; 

3020 IFSH=0THEN3025 

3021 SYSPLOT, 14,24:PRINT"{BLKJPERCENT: " 
INT(SC/SH*100) "{CSL> % "; 

3025 PM=2*INT <2«RND (O) ) -1 : XP=10+INT < 10*R 
ND (O) ) : YP=7+INT (5*RND <0) ) 

3026 SP=PM» I NT ( 3*RN0 < O ) ) : FLA6»0 

3030 PRINT" {BLK> {RVS 0N>"; :F0RI=-2T02:SY 
SPLOT, XP-I*SP, YP+I : PRINT" " ; : NEXT 
3035 X2=25+INT < 10»RND <0) ) : Y2=l : S2=1+INT ( 
2*RND (O) ) : X3=X2: Y3=Y2 

3040 PRINT" {RVS OFF> " ; : F0RI=Y3T0Y3+1 : SYS 
PLOT, X3-1, I: PRINT" ";:NEXT 

3041 PRINT" {RVS ON>{LT GRN>"5 :F0RI=Y2T0Y 
2+1 : SYSPLOT, X2-1 , I : PRINT" " ; : NEXT 
3045 X3=X2:Y3=Y2:IFFLTHEN3070 

3050 GETKEY* : I FKEY*= " " THEN3600 

3055 FL=1 : B1=XP+1 : B2=YP: B3»B1 : B4»B2: SH=S 

H+1 

3060 SYSPLOT, 10, 23: PRINT" {RVS OFF>{BLK>S 
CORE: "SC"{CSL} SHOTS: "SH"{CSL> {HOME 

J"; 

3065 SYSPLOT , 1 4 , 24 : PR I NT " {BLK> PERCENT : " 
INT<SC/SH*100) "{CSL> 7. "; 

3066 S=PEEK ( 1 024-i-B3+40«B4 ) 

3067 I FB 1< >B3ANDS< >8 1 THEN3095 
3070 IFS=160THEN3095 

3075 SYSPLOT, B3,B4: PRINT" {RVS OFFJ ";:SY 
SPLOT, Bl , B2: PRINT" {WHT>gi" ; : B3=B1 : B4=B2: B 
l»Bl+l:B2»B2+SP 

3080 I FB2< 1 0RB2 >20THENB2=B4 : SP=-SP : G0T03 
600 

3085 IFBl >37THENSYSPL0T, B3, B4: PRINT" {RVS 

OFF> " 5 : FL=0 : SP=ABS < SP ) *PM : G0T03600 
3090 I FPEEK < 1 024+B 1 +40*B2 ) =32THEN3600 



245 



3095 SC=SC+1:GDT03010 

3600 C=C+1 : IFC< >2THEN3045 

3605 C=0:Y2=Y2+1: IFY2>20THENY2=1 

3610 60T03040 

3990 RETURN 

4000 : 

4001 :REM »»» END 

4002 : 
4990 RETURN 
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